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BASIC 


(mu Gráficos 


L lenguaje BASIC per- 
mite la programación 
de gráficos de dos ti- 
pos: en baja resolu- 
ción y en alta resolu- 
ción. 

Los gráficos en baja 
resolución se carac- 
terizan porque se realizan en la pantalla 
de texto (pantalla de baja resolución), y 
en su elaboración se emplean los carac- 
teres predefinidos en el teclado o defini- 
dos por nosotros mismos. 

La pantalla de texto está dividida por 
una retícula que normalmente consta de 
25 filas y 49 columnas, aunque puede te- 
ner otro formato, como el SPECTRUM o los 
MSX, cuya pantalla cuenta con 22 filas y 
32 columnas. 

En la figura 1 podemos ver una típica 
pantalla de texto. 


O O A A A A A US EU E O O O O ES O UN O E UR O SU E | 


co EE E A a a o o o o a ay 


Cc AA AAA e AA+ 


co AAA — +A 5 AAA 


CA cc e AA 444 


[A Fig. 1. Pantalla de texto de 25 filas y 40 columnas. 


Realmente, ya estamos en disposición 
de elaborar gráficos en baja resolución, 
puesto que no necesitamos ninguna ins- 
trucción nueva. 

De hecho, ya hicimos algunos en tomos 
anteriores. Sin embargo, vamos a realizar 
un nuevo ejemplo. El programa 1 traza en 
la pantalla un diagrama de barras hori- 


zontales que representa, a escala, las llu- 
vias caídas en las distintas estaciones del 
año. 


REM ARRE ARA ARA 
REM * DIAGRAMA DE BARRAS  * 
REM ARAHAL AER 
CcLS 
DIM L(9):DIM B(49>:DIM E$(49> 

INPUT "LLUVIA CAIDA EN PRIMAVERA" ¿L(1> 
INPUT "LLUVIA CAIDA EN VERANO" ;L(2) 
INPUT "LLUVIA CAIDA EN OTOÑO";L(3> 
INPUT "LLUVIA CAIDA EN. INVIERNO" ;Lc9> 
CLS 

LET M=L(1> 

FOR I=2 TO 4 

IF LIM THEN LET M=LCI> 

NEXT 1 

FOR I=1 TO 4 

LET B(1I>=L(1>%30/M 

NEXT 1 

FOR I=1 TO 4 

READ E$(1) 

PRINT ESCI>;¡TABC(11); 

FOR J=1 TO BCI> 

PRINT CHR$(143); 

NEXT J 

PRINT :¿PRINT :PRINT 

NEXT 1 

DATA PRIMAVERA, VERANO, OTOÑO, INVIERNO 


Si usamos este programa en el SPEC- 
TRUM tendremos que dimensionar la ma- 
triz altanumérica de la línea 50 de la si- 
guiente forma: 


DIM ES (4,9) 
y sustituir la línea 160 por: 
160 LET B(1) =L(1)'21/M 


ya que el ancho de pantalla es más pe- 
queño. Además, los datos de la línea 
DATA deben ir entre comillas. 

El primer bucle FOR-NEXT del programa 
1 sirve para averiguar cuál es el mayor 
de los cuatro datos introducidos y guar- 
darlo en la variable M. Este dato se utili- 
za a continuación en el segundo bucle 
para hacer los cambios de escala. Por úl- 
timo, el tercer bucle se encarga de impri- 
mir el diagrama en pantalla como mues- 
tra la figura 2. 


5110 ESO NINAS 


VERANO 


A 
A 


Ok 


Fig. 2. Diagrama de barras obtenido con el 
programa l. 


m Alta resolución 


La pantalla de alta resolución está for- 
mada por una pequeña retícula que di- 
vide la pantalla en puntos o pixels. Nor- 
malmente una pantalla de este tipo, lla- 
mada también pantalla gráfica, tiene 
200 filas y 320 columnas de pixels, aun- 
que podemos encontrar diversos tama- 
ños dependiendo del ordenador, tal y 
como podemos ver en la figura 3. 


N DE 3 OBTENCION 
PUNTOS EN DE LA 
HORIZONTAL PANTALLA 


Fig. 3. Tabla-resumen de las pantallas gráficas de 
los distintos ordenadores. 

Un pixel se distingue de otro por sus 
coordenadas cartesianas. El origen de 
coordenadas suele estar en el ángulo in- 
ferior izquierdo, como en AMSTRAD o 
SPECTRUM, o en el ángulo superior izquier- 


do, como en IBM Oo MSX. Normalmente el 
origen es el pixel (0,0), aunque en algu- 
nos casos puede ser el (1,1). En la figura 
4 podemos ver la situación de un pixel en 
una pantalla gráfica. 
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[A Fig. 4. Situación de un pixel en una pantalla 
gráfica. 


Para dibujar en una pantalla gráfica, 2 
BASIC pone a nuestra disposición una se- 
rie de instrucciones que nos permiten tra- 
zar básicamente puntos, rectas y circun- 
ferencias o arcos de circunferencia. Al- 
gunas versiones BASIC más avanzadas 
también permiten figuras más complejas, 
como elipses y cuadriláteros. 

El inconveniente de los comandos grá- 
ficos es que suelen variar bastante de 
unas máquinas a otras, por tanto, vamos 
a estudiar únicamente las instrucciones 
fundamentales en cuatro ordenadores 
distintos. 


' Puntos 


Para dibujar un punto en la pantalla 
gráfica el AMSTRAD y el SPECTRUM dispo- 
nen de la instrucción PLOT con el siguien- 
te formato: 


PLOT x,y 


siendo x la coordenada desde el origen 
hacia la derecha e y la coordenada des- 
de el origen hacia arriba. 

En el IBM y los MSX el trazado de un pun- 
to se consigue con la instrucción PSET, 
que tiene el formato siguiente: 


PSET (x,y) 


En este caso la coordenada xes la dis- 
tancia desde origen a la derecha y la 


ll BASIC 


coordenada y la distancia del origen ha- 
cia abajo. 


' Rectas 


El tazado de rectas en el SPECTRUM se 
realiza con la instrucción DRAW con el si- 
guiente formato: 


DRAW xX,y 


donde ahora x representa el incremento 
horizontal de la recta e y el incremento 
vertical, contados ambos desde la posl- 
ción en la que se encuentre el cursor grá- 
fico. Podemos ver un ejemplo en la figu- 
ra 5. 


78 
»] 


48 


80 130 


lA Flg. 5. Ejemplo de funcionamiento de DRAW en 
el SPECTRUM (DRAW 50,30). 


El mismo efecto se consigue en el AMS- 
TRAD con la instrucción DRAWR con el for- 
mato: 

DRAWR xX,y 

En ambos ordenadores los incrementos 
pueden ser positivos o negativos, con los 
distintos efectos que muestra la figura 6. 


Coordenadas (final de la recta) 


Flg. 6. Direcciones y sentidos de las rectas traza- 
das con DRAW (SPECTRUM) Oo DRAWR (AMSTRAD), 
según el signo de las coordenadas. 


4) 


Por otra parte, el AMSTRAD también dis- 
pone de la instrucción DRAW, pero el fun- 
cionamiento es diferente, ya que su ob- 
jetivo es trazar una recta desde la posi- 
ción en la que se encuentre el cursor grá- 
fico hasta el punto especificado en las 
coordenadas. 

En cuanto a los MSX y el IBM, el trazado 
de rectas se consigue con la instrucción 
LINE con el formato siguiente: 


LINE (X1,Y1)-(X2-Y2) 


LINE traza una recta desde el punto de 
coordenadas (X1,Y1) hasta el punto de 
coordenadas (X2,Y2). 

El primer punto se puede omitir, en 
cuyo caso el ordenador tomará la posl- 
ción en la que se encuentre el cursor grá- 
fico. 

Ahora que ya sabemos dibujar puntos 
y rectas, vamos a ver un ejemplo. El pro- 
grama 2 permite trazar todo tipo de po- 
ligonos regulares en el centro de la pan- 
talla. 


REM AFEEXEXLELEL EEE AE RARA 
REM * POLIGONOS REGULARES + 
REM Ferrer rr rr errrrkrirs 
CLS 

INPUT "NUMERO DE LADOS" ¿N:IF N<3 THEN GOTO 50 
INPUT "RADIO"¡R:IF R<S OP. R>0 THEN GOTO 40 
CLS:LET Ci=1460:LET C2=100 
LET X1=C1+R 
LET Yi=C2 

LET A=2*2.19416/N 

PSET (X1,Y1> 

FOR I=A TO 2x3.1916+A STEP 


LET X=C1+R*COSCI) 

LET Y=C2+R*SINCI) 

LINE -(X,Y) 

LET X1=X:LET Y1i=Y 

NEXT: 1 

PRINT "QUIERES PROBAR OTRO POLIGONO (S/N)" 


LET Ré=INKEY$:IF R$="" THEN GOTO 190 
IF R$="S".OR R$="s" THEN CLS:GOTO 50 


El programa está pensado para un IBM, 
pero con lo explicado hasta ahora no re- 
sulta muy difícil adaptarlo a cualquier 
otro ordenador. 

En la figura 7 podemos ver una posible 
ejecución de este programa. 


| | 


i | 
/ 1 
/ 


[A Flg. 7. Polígono trazado con el programa 2. 


Circunferencias 


El trazado de circunferencias se realiza 
en el SPECTRUM, el IBM y los MSX con la 
instrucción CIRCLE. 

El AMSTRAD, en cambio, no dispone de 
ninguna instrucción para dibujar circun- 
ferencias. 

El formato general de CIRCLE es el si- 
guiente: 


REM ree... irrirrrrirrrrrrkirkir> 
20 REM * FLORES DE CIRCUNFERENCIAS +* 
30 REM FREE EEE EAS 
40 CLS 


380 CLS:LET C1=160:LET C2=100 

50 LET A=2*3,1416/N 

100 AN=0 

110 FOR I=1 TO N 

120 xX=C1+R1*COS<AN> 

130 Y=C2+R1IX*SINCAN> 

140. TCERCLE Xx, YI¿RE 

150 LET AN=AN+A 

160 NEXT 1 

170 PRINT "QUIERES FROBAR OTRA FLOR" 


IF Ré="S" OR Fé$="<" THEN CLS:GOTO 


En las figuras 8, 9 y 10 podemos ver dis- 
tintos ejemplos de la ejecución de este 
programa. 


[A Fig. 8. Flor de circunferencias trazada con el pro- 
grama 3. 


Para finalizar, únicamente añadir que 
la mayoría de los ordenadores tratados 
tienen muchas más posibilidades gráfi- 
cas, imposibles de tratar aquí. Nosotros 
sólo hemos visto lo fundamental, pero los 
aficionados que quieran sacar el máxi- 


50 INPUT "NUMERO DE PETALOS"¡N:; IF N<S THEN GOTO 50 
60 INPUT "RADIO PRINCIPAL";¡R1:1F R1<5 OR R1>385 THEN GOTO 60 
70 INFUT "RADIO DE LOS PETALOS"¡R2:I1F R2<S OR R2>?0-R1 THEN GOTO 70 


130 LET Ré=INKEY+: IF R$="" THEN. GOTO 180 


CIRCLE (X, V)R 


siendo Xe Y las coordenadas del centro 
y Rel radio. En el caso del SPECTRUM no 
se necesitan los paréntesis. 


El programa 3 permite trazar en el cen- 
tro de la pantalla todo tipo de flores de 
circunferencias: 


Flg. 9. Flor de circunferencias trazada con el pro- 
grama 3. 
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[A Fig. 10. Flor de circunferencias trazada con el 
programa 3. 


mo partido a los gráficos de su ordena- 
dor pueden consultar en sus manuales 
para programar nuevos gráficos. 


O Programación 
de las teclas 
de función 


OMO habrá notado, 
su C-64 posee ocho 
teclas de función sli- 
tuadas al lado dere- 
cho y puestas una de- 
bajo de otra. Segura- 
mente las habrá pul- 
sado una y otra vez y 
no habrá conseguido nada. 

Lo primero que uno puede pensar es 
que no funcionan, o bien, que no se está 
haciendo lo correcto al utilizarlas. 

Bien, pues ninguna de las dos conclu- 
siones es correcta. Lo que hay que hacer 
es programarlas para que ejecuten una 
rutina previamente introducida. Esta ruti- 
na puede ser simplemente la visualiza- 
ción en pantalla de una palabra, o pue- 
de hacer que el ordenador ejecute algo 
más complejo mediante un comando JSR 
al ser pulsada la tecla correspondiente. 

¿Cómo hacer esto? Utilizando la técni- 
ca de interrupciones que hemos apren- 
dido. Se intercepta la rutina, se añade 
una comprobación del teclado (teclas 
de función) y se imprime o ejecuta «algo» 
según la tecla pulsada. 

Esto es lo que hace el programa que 
vamos a crear en este capítulo, que será 
comentado en todos los puntos en los 
que sea necesario. 

Lo primero que hacemos es desviar las 
interrupciones a la zona de memoria que 
nos interesa. Si empezamos en la posi- 
ción $C000, podemos desviar a $CO10. 
A continuación se ofrece el listado com- 
pleto tal y como aparecería en el desen- 


MAQUINA 6502 


samblador, pero al teclearlo basta con 
introducir las dos columnas de la dere- 
cha, es decir, los comandos y sus ope- 
randos cuando los haya. 


cooo 78 SEI 

LDA ¿$10 
STA $0314 
LDA $CO 


C001 A9 
C003 8D 
CO06 AY 
co008 8D 
COOB 58 CLI 
cooc 60 RTS 


STA $0315 


COOD EA 
COOE EA 
COOF EA 
co10 48 
co11 8A 
co12 48 
C013 98 
Co14 48 PHA 

C015 AS C5 LDA ffsc5 
C017 C5 FB CMP $FB 
C019 FO 51 
CO1B 85 FB 
CO1D C9 03 
CO1F DO 08 
C021 AY 30 


BEQ $C06C 
STA $FB 
CMP ¿$03 
BNE $C029 
LDA $30 
C023 8D 00 C1 STA $C100 
C026 40 4A CO JMP $C04A 
C029 C9 04 CMP $04 
C02B DO 08 BNE $C035 
CO02D AY 00 LDA X$00 


C02F 8D 00 C1 STA $C100 
C032 4C 4A CO JMP $C04A 
C035 C9 05 CMP $05 


C037 DO 08 BNE $C041 
C039 AY 10 LDA X$10 

C03B 8D 00 C1 STA $C100 
CO3E: AC 4A CO JMP $C04A 


C041 C9 06 CMP $06 
C043 DO 27 BNE $C06C 
C045 AY 20 LDA ¿$20 


C047 8D 00 C1 STA $C100 
CO4A AD 8D 02 LDA $028D 
C04D C9 OL CMP ¿$01 
CO4F DO 08 BNE $C059 
C051 AD 00 C1 LDA $C100 
c054 69 08 ADC ¿$08 
C056 8D 00,C1 STA $C100 
C059 A2 00 LDX $00 
CO5B AC 00 C1 LDY $C100 
CO5E B9 01 C1 LDA $C101,Y 
C061 9D 77 02 STA $0277,X 
C064 E8 INX 

c065 Cc8 INY 

C066 EO 08 CPX $08 
C068 DO F4 BNE $C05E 
CO6A 86 C6 STX $C6 
co6c 68 PLA 

CO06D A8 TAY 

C06É 68 PLA 

CO6F AA TAX 

co7o 68 PLA 

C071 4C 31 EA JMP $EA31 


— Las líneas CO10-CO14 lo único que 
hacen es guardar los contenidos actua- 
les de los registros ACU, X e Y en la pila 
para que luego puedan ser restaurados. 

— La línea CO15 carga al ACU el valor 
de la última tecla pulsada que se alma- 
cena siempre en la posición de memoria 
$CE=197. 

— Las líneas CO17-CO19 efectúan una 
comparación entre las posiciones $CE 
(197) y $FB (251). Si no se ha pulsado nin- 
guna tecla tendrán el mismo número 
($40=64) y la rutina bifurca a la posición 
CO£C, restaurándose los contenidos de 
los registros que se encuentran almace- 
nados en la pila. 

Si se ha pulsado una tecla entonces los 
contenidos de las posiciones $C5 y $FB 


serán diferentes y la rutina de decodlifi- 
cación continúa. 

— La línea CO15 carga al ACU el valor 
de la última tecla pulsada que se alma- 
cena siempre en la posición de memoria 
$C5=197. 

— Las líneas CO17-CO19 efectúan una 
comparación entre las posiciones $CE 
(197) y $FB (251). Si no se ha pulsado nin- 
guna tecla tendrán el mismo número 
($40=64) y la rutina bifurca a la posición 
CO€C, restaurándose los contenidos de 
los registros que se encuentran almace- 
nados en la pila. 

Si se ha pulsado una tecla entonces los 
contenidos de las posiciones $C5 y SFB 
serán diferentes y la rutina de decodífi- 
cación continúa. 

— La línea CO1B coloca el valor de la 
tecla pulsada en $FB (251). 

— la línea CO1D compara este núme- 
ro con el número 3 correspondiente a la 
tecla F7/F8. 

— La línea CO1F bifurca si no se ha pul- 
sado esta tecla, y continúa si se pulsó. 

— La línea CO21 coloca en el ACU el 
número $30= 48, que corresponde al nú- 
mero «O» según el código de pantalla. 
Este número se almacena en la posición 
C 100 (49408), que es la posición a partir 
de la cual se van a almacenar las pala- 
bras que se imprimirán al pulsar las dife- 
rentes teclas de función. 

— A continuación la línea CO32 salta 
a la posición CO4A, donde está en subru- 
tina capaz de distinguir si la tecla pulsa- 
da fue F7 o F8. Para ello consulta la posi- 
ción de memoria $028D (653) y si su con- 
tenido es 1, es que se pulsó SHIFT.ZSi es di- 
ferente de 1, la tecio SHIFT no ha sido pul- 
sada. 

Supongamos que no se pulsó SHIFT. En- 
tonces se salta a la posición CO59, se 
carga el registro X con cero, pues va a 
servir de contador, y el registro Y con el 
número $30=48. La explicación de esto 
es muy sencilla. Si suponemos ocho letras 
por palabra para cada tecla, como se 
pulsó F7, se debe comenzar a leer en la 
posición 8 x 6 = 48 después de la prime- 
ra que está en C100=49009. 

Ahora las líneas CO5E-CO65 leen letra 
a letra la palabra correspondiente (LDA 
$C191,Y) y la colocan en el buffer del te- 
clado (STA $0277,X). Si se pulsó SHIFT, en- 
tonces se trata de la tecla F8, con lo cual 
en vez de empezar a leer en la posición 
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48, se empezará a leer en la 56. De ello 
se encarga la línea CO54 (ADC=/=$08), 
y la CO56, que coloca en la posición 
C 100 el número 56. 

Una vez que la palabra está en el buf- 
fer del teclado y se ha comprobado que 
tiene 8 caracteres, se imprime en panta- 
lla, guardándose en el registro X el núme- 
ro de caracteres en el buffer. 

— Las líneas CO2B-C035, CO37-C041 y 


FOR A=0 TO 7:READ K$ 


IF L=95 THEN L=13 
IF L=42 THEN L=4 


SYS 49152 
DATA LISTÉ KMkx 
DATA PALABRA 2 
DATA PALABRA 3 
DATA PALABRA 4 
DATA PALABRA 5 
DATA PALABRA 6 
DATA PALABRA 7 
DATA PALABRA 8 


Como cada palabra debe contener 
ocho caracteres, si se usan menos se 
debe rellenar el resto con * o el símbolo 
que desee sin más que cambiar su códi- 
go en la línea 130. 

Para que la palabra lleve un retorno de 
carro se la hace terminar en «flecha iz- 
quierda». 


FOR B=1 TO 8:L=+ASC(MIDS(K$,B,1)) 


POKE 494094+(A%8)+B,L+NEXT : NEXT: POKE 49409,4 


CO43-CO45 comprueban igualmente si 
la tecla pulsada fue F1/F2, F3/F4 o F5/F6, 
respectivamente. 

— La última línea es JMP $EA31, como 
siempre se acaban las rutinas basadas 
en las interrupciones. 

Por último, necesitamos los datos de las 
letras que se van a poner en cada tecla. 
Estos pueden introducirse mediante un 
sencillo programa en BASIC. 


Pruebe todas las palabras que se le 
ocurran, y si se atreve, puede ampliar la 
rutina para que imprima palabras clave 
con el resto de las teclas de su ordena- 
dor. El procedimiento es el mismo que el 
del ejemplo. 


Movimiento 
rectilíneo y 
circular en el 
SPECTRUM 


ON este nuevo pro- 
grama vamos a po- 
der estudiar y repasar 
todos nuestros cono- 
cimientos sobre el 
movimiento rectilíneo 
y circular, ya sean 
uniformes o acelera- 


dos. 

El programa ha sido realizado de ma- 
nera que todas las elecciones sobre el 
tipo de información que conocemos y so- 


* (c) 1987 


0030D00A0N- 


INVERSE 1;" . 
INVERSE 1; "MOVIMIENTO RECTILINIO Y CIRCULAR" 
INVERSE 1;" ds 
INVERSE 1;" 


1 
o 
0) 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


bre la información que deseamos obte- 
ner aparezca mediante menús de facil 
uso. 


Cuando nos encontremos en un menú 
y queramos elegir una de las opciones 
que se nos ofrecen, sólo tenemos que 
pulsar el número que se encuentra junto 
a la misma. Al hacerlo, dicho número em- 
pezará a parpadear. Si nos hemos equi- 
vocado de opción podemos hacerlo en 
ese momento pulsando, sin más, la que 
realmente queremos. Una vez que este- 
mos seguros de que la opción que par- 
padea es la que deseamos, pulsando el 
número que se encuentra al lado de la 
frase: GOTO OPCION, ejecutamos dicha 
opción. 


HONOR OOO NO NOOO ROO OOO OOOO OOOO OOO OOOO JO JOk 


*k MOVIMIENTO RECTILINIO Y CIRCULAR * 
MISS SS lO OOIOIOK 


ASS SOS lOlOlolOlolOK 
* (c) Ediciones Siglo Cultural * 


k 


HORROR ROO OOOO OOOO OOOO OOOO OOOO OK 


MENU PRINCIPAL 


PRINT ".MOVIMIENTO RECTILINEO UNIFORME" 
PRINT "2.MOVIMIENTO RECTILINEO VARIADO" 
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120 PRINT "3.MOVIMIENTO CIRCULAR UNIFORME" 
130 PRINT "4, MOVIMIENTO CIRCULAR VARIADO" 
140 PRINT "5.GOTO OPCION" 
141 PRINT : PRINT : PRINT 
142 PRINT "PULSA LOS NUMEROS DEL 1 AL 5" 
143 PRINT " --========omooooononnmoo 5 
150 GO SUB 170 
160 GO TO OPx1000 
170 LET K$=INKEY$ 
180 IF L$=K$ THEN GO TO 170 
190 LET L$=K$ 
12 IF K$>"0" AND K$<M$ THEN GO TO 230 
220 GO TO 290 
230 GO SUB 320 
240 BEEP .01,30 
250 LET OP=(VAL K$ AND K$<>M$) 
260 FLASH 1 
270 PRINT AT OP+4,0;K$ 
280 FLASH O 
290 IF K$<>M$ THEN GO TO 170 
300 LET O$=M$ 
310 RETURN 
320 FOR B=0 TO (VAL M$)-1 
330 PRINT AT B+5,0;B+1 
340 NEXT B 
350 RETURN 
360 LET NV=Q/(2*PI) 
370 LET AN=Q-(NVx2xPI) 
380 RETURN 
400 RESTORE 8780 
405 READ A$ 
410 READ B$ 
415 READ C$ 
420 PRINT A$ 
425 RESTORE 8750 
430 READ A$ 
435 PRINT A$ 
440 INPUT W 
445 CLS 
450 PRINT B$ 
455 INPUT AA 
480 CLS 
465 PRINT C$ 
470 INPUT Q 
475 LET WO=SQR (W*W-2*AAX*Q) 
480 LET T=(W-SQR (WX*W-2*AAXQ))/AA 
485 LET F$="Wo=SQR (W"2-2*exQ)" 
490 LET G$="T=(W-SQR (W"2-2*eXxQ))/0" 
500 CLS 
505 LET ANG=AA 
510 GO SUB 3150 
515 PRINT "DATOS: " 
520 PRINT " W=";W;" RAD/S" 
525 PRINT " O=";AA;" RAD/S”2" 
530 PRINT " Q=";Q;" RAD." 
535 PRINT " R=";R;" M." 
540 PRINT "ECUACIONES EMPLEADAS: " 
545 PRINT " ";F$'” ";G$ 
550 PRINT "RESULTADOS: " 
555 PRINT " Wo=";WO;” RAD/S" 
560 PRINT " T=";T;" SEG." 
565 GO SUB 9065 
570 GO TO 9095 
600 RESTORE 8720 
605 READ A$ 
610 PRINT A$ 
615 INPUT T 


620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
675 
680 
685 
690 
695 
700 
705 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
800 
805 
810 
815 
820 
825 
827 
830 
835 
840 
845 
850 
860 
865 
870 
875 
880 
885 
890 
895 
900 
905 
910 
915 
920 
925 
930 
935 
940 
945 
950 
955 
960 
965 
970 
975 


RESTORE 8780 
READ A$ 

PRINT A$ 

RESTORE 8750 

READ A$ 

PRINT A$ 

INPUT W 

RESTORE 8800 

READ A$ 

PRINT A$ 

INPUT Q 

LET WO=(2*Q-Tx*W)/T 

LET AA=(2*(WXT-Q))/(TxT) 
LET F$="Wo=(2*Q-TxW)/T" 
LET G$="=(2*(W*T-Q))/(T"2)" 
CLS 

LET ANG=AA 

GO SUB 3150 

PRINT "DATOS: " 

PRINT " W=";W;" RAD/S” 
PRINT * Te“;:T;”" 8.” 
PRINT " Q=";0Q;" RAD." 
PRIME "BEE; " M4.” 
PRINT "ECUACIONES EMPLEADAS: " 
PRINT ” *“:3S*” “08 
PRINT "RESULTADOS: " 

PRINT " Wo=";WO;" RAD/S" 
PRINT " 0=";AA;" RAD/S”2" 
GO SUB 9065 

GO TO 9095 

RESTORE 8720 

READ A$ 

PRINT A$ 

INPUT T 

RESTORE 8780 

READ A$ 

CLS 

PRINT A$ 

RESTORE 8740 

READ B$ 

PRINT B$ 

INPUT WO 

READ B$ 

CLS 

PRINT A$ 

PRINT B$ 

INPUT W 

LET AA=(W-WO)/T 

LET Q=(T/2)x(WX*W-WOXWO ) / (W-WHO) 
LET F$="0=(W-Wo)/T" 

LET G$="Q=(T/2)*x(W"2-Wo”2)/(W-Wo) " 
LET ANG=AA 

CLS 

GO SUB 3150 

PRINT "DATOS: " 

PRIME" Ye": Pi” JU.” 
PRINT " W=";W;" RAD/S” 
PRINT " Wo=";WO;" RAD/S" 
PRINT " R=";R;" M." 
PRINT "ECUACIONES EMPLEADAS: " 
PRINT " ";F3$*" ";G$ 
PRINT "RESULTADOS: " 


PRINT =";AA;" RAD/S”2" 
PRINT " Q=";Q;" RAD.” 
GO SUB 9065 


GO TO 9065 
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1000 
1010 
1011 
1012 
1013 
1014 
1015 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1365 
1370 
1375 
1380 
1385 
1390 
1395 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1600 
1610 
1620 
1630 
1640 
1650 


LET M$="5" 

CLS 

PRINT INVERSE 1;" MENU DEL .. 
PRINT INVERSE 1;" 

PRINT INVERSE 1;"” MOVIMIENTO RECTILINIO UNIFORME 
PRINT INVERSE 1;" 

PRINT 

LET OP=1 

FLASH 1 

PRINT “1”; 

FLASH O 

PRINT ".INCOGNITA *V=VELOCIDAD”? " 
PRINT "2. INCOGNITA *S=ESPACIO? " 
PRINT "3. INCOGNITA *T=TIEMPO?" 
PRINT "4.GOTO MENU PRINCIPAL” 
PRINT "5.GOTO OPCION" 

GO SUB 170 

CLS 

GO TO 1000+200x*0P 

RESTORE 8770 

READ A$ 

PRINT A$ 

INPUT $S 

RESTORE 8720 

READ A$ 

CLS 

PRINT A$ 

INPUT T 

CLS 

LET V=S/T 

PRINT "DATOS: " 
PRINTS Mo 

PRINT * TS"3TS" -QEE..* 
PRINT "ECUACION EMPLEADA: " 
PRINT “ V=S/T" 

PRINT "RESULTADO: " 

PRINT YD E 

FLASH 1 

PRINT "PULSA UNA TECLA. " 
FLASH O 

GO SUB 1810 

PAUSE O 

GO TO 1010 

RESTORE 8720 

READ A$ 

PRINT A$ 

INPUT T 

READ A$ 

CLS 

PRINT A$ 

INPUT Y 

CLS 

LET S=VxT 

PRINT "DATOS: " 

PRINT:". V=*;W;" M/S” 
PRINTS TESTS 

PRINT "ECUACION EMPLEADA: ” 
PRINT " S=VxT" 

PRINT "RESULTADO: " 

PRINT " S=";S;" M" 

GO TO 1370 

RESTORE 8770 

READ A$ 

PRINT A$ 

INPUT $S 

RESTORE 8730 

READ A$ 


1660 
1670 
1880 
1890 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
1995 
2000 
2010 
2011 
2012 
2013 
2014 
2015 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2200 
2210 
2220 
2230 
2235 
2240 
2245 
2250 
2255 
2260 
2265 
2270 
2271 
2272 
2273 


CLS 

PRINT A$ 

INPUT Y 

CLS 

LET T=S/V 

PRINT "DATOS: " 

PRINT " S=";S;" M” 

PRINT " V=";V;" M/S" 

PRINT "ECUACION EMPLEADA: " 
PRINT " T=S/V" 

PRINT "RESULTADO: " 

PRINT ” T=";T;," 5" 

GO TO 1370 

GO TO 60 

PLOT 0,27 

DRAW 255,0 

OVER 1 

PRINT AT 18,1;";¡" 

PRINT AT 19,0;"T=0" 

PRINT AT 18,21;":” 

PRINT AT 19,17;"T=";T 
PRINT AT 20,10;"S=";S 
OVER O 

PLOT 64,27 

DRAW 0, 24 

DRAW 36,0 

DRAW O, -24 

PLOT 100, 40 

DRAW 36,0 

DRAW -4,2 

DRAW 0, -4 

DRAW 4,2 

PRINT AT 15,15;"V=":V 
RETURN 

LET M$="4" 

CLS 

PRINT INVERSE 1;" MENU DEL .. 
PRINT INVERSE 1;" 

PRINT INVERSE 1;" MOVIMIENTO RECTILINIO VARIADO. 
PRINT INVERSE 1;" 

PRINT 

LET OP=1 

FLASH 1 

PRINT “1”; 

FLASH O 

PRINT ". INPUT INCOGNITAS" 
PRINT "2.PRINT REPRESENTACION"” 
PRINT "3.GOTO MENU PRINCIPAL" 
PRINT "4.GOTO OPCION" 

GO SUB 170 i 
CLS 

GO SUB 2000+0Px200 

GO TO 2000 

GO SUB 2265 

IF OP=6 THEN RETURN 

LET A1=0P 

GO SUB 2265 

IF OP=6 THEN RETURN 

LET A2=0P 

IF Al1=0P THEN GO TO 2230 
GO SUB 8500 

CLS 

GO TO 5000+(FO-1)*x300 

LET OP=1 

CLS 

PRINT INVERSE 1;" 

PRINT INVERSE 1;" INTRODUCCION DE DATOS 
PRINT INVERSE 1;" 
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2274 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2395 
2400 
2410 
2600 
3000 
3005 
3010 
3011 
3012 
3013 
3014 
3015 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3155 
3160 
3165 
3170 
3171 
3175 
3180 
3185 
3190 
3195 
3200 
3205 
3210 
3215 
3220 
3225 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 
3300 
3305 
3310 


PRINT : PRINT 
LET M$="7" 

FLASH 1 

PRINT "1"; 

FLASH 0 

PRINT ".VELOCIDAD FINAL 'V?" 

PRINT "2. VELOCIDAD INICIAL *Vo”" 
PRINT "3. ACELERACION 'A'" 

PRINT "4. TIEMPO *T”" 

PRINT "5.ESPACIO *S”" 

PRINT "6.GOTO SUBMENU" 

PRINT "7.ELEGIR OPCION" 

GO SUB 170 

RETURN 

IF A=0 AND T=0 AND V=0 THEN RETURN 
GO TO 8600 

GO TO 50 

LET M$="5" 

LET ANG=0 

CLS 

PRINT — INVERSE 1;" MENU DEL ... . 
PRINT — INVERSE 1;" ; 
PRINT INVERSE 1;" MOVIMIENTO CIRCULAR UNIFORME ” 
PRINT  INVERSE 1;" j 
PRINT 

LET OP=1 

FLASH 1 

PRINT "1"; 

FLASH 0 

PRINT ". INCOGNITA'W=VELOCIDAD ANGULAR” " 
PRINT "2. INCOGNITA”Q=ANGULO” " 

PRINT "3. INCOGNITA” T=TIEMPO” " 

PRINT "4.GOTO MENU PRINCIPAL" 

PRINT "5.GOTO OPCION" 

GO SUB 170 

CLS 

GO SUB 2999+250*0P 

GO TO 3000 

RESTORE 8810 

READ AS 

CLS 

PRINT A$ 

INPUT R 

IF ANG<>0 THEN GO TO 3200 

RESTORE 8790 

READ AS 

CLS 

PRINT A$ 

INPUT AA 

LET S=R*Q 

LET V=R*W 

LET TA=R*AA 

LET AN=V*V/R 

CLS 

RETURN 

RESTORE 8800 

READ A$ 

PRINT A$ 

INPUT Q 

RESTORE 8720 

READ AS 

CLS 

PRINT A$ 

INPUT T 

LET W=0/T 

GO SUB 3150 

PRINT "DATOS: " 

PRINT " Q=";Q;" RAD.” 


3315 PRINT " T=";T;" SEG." 
3320 PRINT " R=";R;" M." 

3325 PRINT " 0=";AA;" RAD/S”2" 
3330 PRINT "ECUACION EMPLEADA: " 
3335 PRINT " W=Q/T" 

3340 PRINT "RESULTADO: ” 

3345 PRINT " W=";W;" RAD/S" 
3400 PRINT " S=";S;" M." 

3410 PRINT " V=";V;" M/S" 

3420 PRINT " At="5TA;" M/S"2" 
3430 PRINT ".An=";AN;" M/S”2" 
3440 FLASH 1 

3450 PRINT "PULSA UNA TECLA. " 
3460 FLASH O 

3470 GO SUB 8000 

3480 PAUSE 0 

3490 RETURN 

3500 RESTORE 8720 

3510 READ A$ 

3520 PRINT A$ 

3530 INPUT T 

3540 RESTORE 8780 

3550 READ A$ 

3560 CLS 

3570 PRINT AS 

3580 INPUT W 

3590 LET Q=Wx*T 

3600 GO SUB 3150 

3610 PRINT “DATOS: " 

3620 PRINT " T=";T;" SEG." 
3630 PRINT " W=";W;" RAD/S" 
3640 PRINT " R=";R;" M." 

3650 PRINT " 0=";AA;" RAD/S”2" 
3660 PRINT "ECUACION EMPLEADA: " 
3670 PRINT " Q=W*T" 

3680 PRINT "RESULTADO: " 

3690 PRINT “ Q=";Q;" RAD." 
3700 GO TO 3400 

3750 RESTORE 8780 

3760 READ A$ 

3770 PRINT AS 

3780 INPUT W 

3790 RESTORE 8800 

3800 READ A$ 

3810 CLS 

3820 PRINT A$ 

3830 INPUT Q 

3840 LET T=Q/W 

3850 GO SUB 3150 

3860 PRINT "DATOS: " 

3870 PRINT " Q=";Q;" RAD" 

3880 PRINT " W=";W;" RAD/SEG" 
3890 PRINT " R=";R;" M.” 

3900 PRINT " 0="¡AA;" RAD/S”2" 
3910 PRINT “ECUACION EMPLEADA: " 
3920 PRINT " T=W/Q" 

3930 PRINT "RESULTADO: " 

3940 PRINT " T=";T;" SEG." 
3950 GO TO 3400 

3999 GO TO 50 

4000 LET M$="4" 

4005 LET ANG=0 

4010 CLS 

4011 PRINT INVERSE 1;" MENU DEL . 
4012 PRINT INVERSE 1;" 

4013 PRINT INVERSE 1;" MOVIMIENTO CIRCULAR VARIADO. 
4014 PRINT  INVERSE 1;" 

4015 PRINT 
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4020 LET OP=1 

4030 FLASH 1 

4040 PRINT "1"; 

4050 FLASH O 

4060 PRINT ". INPUT INCOGNITAS” 

4070 PRINT "2.PRINT GRAFICA" 

4080 PRINT "3.GOTO MENU PRINCIPAL" 

4090 PRINT "4.ELEGIR OPCION" 

4100 GO SUB 170 

4110 CLS : 

4120 GO SUB 4000+0Px200 

4130 GO TO 4000 

4200 GO SUB 4265 

/4205 IF OP=6 THEN RETURN 

4210 LET A1=0P 

4215 GO SUB 4265 

4220 IF OP=86 THEN RETURN 

4225 LET A2=0P 

4230 IF OP=A1 THEN GO TO 4215 

4235 GO SUB 8500 

4240 CLS 

4245 IF FO<86 THEN GO TO 8900+(FO-1)*200 
4250 IF FO<9 THEN GO TO 400+(FO-6)x*200 
4255 GO TO 4610+(FO-8)*x200 

4265 LET OP=1 

4270 CLS 

4271 PRINT INVERSE 1;” n 
4272 PRINT INVERSE 1;" INTRODUCCION DE INCOGNITAS  " 
4273 PRINT INVERSE 1;” sy 
4274 PRINT : PRINT 

4275 LET M$="7" 

4280 FLASH 1 

4285 PRINT "1"; 

4290 FLASH O 

4295 PRINT ". VELOCIDAD ANG. FINAL 'W”" 
4300 PRINT "2.VELOCIDAD ANG. INICIAL *Wo”" 
4305 PRINT "3.ACELERACION ANGULAR *e”" 
4310 PRINT "4. TIEMPO *T*" 

4315 PRINT "5. ANGULO *Q*" 

4320 PRINT "6.GOTO SUBMENU" 

4325 PRINT “/.ELEGIR OPCION" 

4330 GO SUB 170 

4335 RETURN 

4400 IF A=0 AND T=0 AND V=0 THEN RETURN 
4410 GO TO 3440 

4600 GO TO 50 

4610 RESTORE 8780 

4615 READ A$ 

4620 PRINT A$ 

4625 RESTORE 8740 

4630 READ B$ 

4635 PRINT B$ 

4640 INPUT WO 

4645 CLS 

4650 PRINT A$ 

4655 READ A$ 

4660 PRINT A$ 

46865 INPUT W 

4670 RESTORE 8800 

4675 READ A$ 

4680 CLS 

4685 PRINT A$ 

4690 INPUT Q 

4695 LET AA=(WX*W-WOXWO) /(2*Q) 

4700 LET T=(2*S*(W-WO) ) / (WX*W-WOXWO ) 
4705 LET F$="0=(W"2-Wo”2)/(2*Q)" 

4710 LET G$="T=(2*Sx*(W-WO))/(W"2-Wo”2)" 


4715 LET ANG=AA 

4720 CLS 

4725 GO SUB 3150 

4730 PRINT "DATOS: ” 

4735 PRINT " W=";W;" RAD/S” 
4740 PRINT " Wo=";WO;" RAD/S" 
4745 PRINT " Q=";Q;" RAD.” 
4750 PRINT " R=";R;" M.” 

4755 PRINT "ECUACIONES EMPLEADAS: " 
4760 PRINT " ";F$*" ";G3$ 

4765 PRINT "RESULTADOS: " 

4770 PRINT " 0=";AA;" RAD/S”2" 
4775 PRINT " T=";T;" SEG." 
4780 GO SUB 9065 

4785 GO TO 9095 

4810 RESTORE 8780 

4815 READ A$ 

4820 READ B$ 

4825 PRINT A$ 

4830 RESTORE 8740 

4835 READ C$ 

4840 PRINT C$ 

4845 INPUT WO 

4850 READ C$ 

4855 CLS 

4860 PRINT A$ 

4865 PRINT Cs$ 

4870 INPUT W 

4875 CLS 

4880 PRINT B$ 

4885 INPUT AA 

4890 LET ANG=AA 

4895 LET T=(W-WO)/AA 

4900 LET Q=(W*W-WOXWO)/(2*AA) 
4905 LET F$="T=(W-Wo)/e" 

4910 LET G$="0=(W"2-WNo”2)/(2x*0)" 
4915 CLS 

4920 GO SUB 3150 

4925 PRINT "DATOS: " 

4930 PRINT " W=";W;" RAD/S" 
4935 PRINT " Wo=";WO;"” RAD/S” 
4940 PRINT " €=";AA;" RAD/S*2" 
4945 PRINT " R=";R;" M.” 

4950 PRINT "ECUACIONES EMPLEADAS: ” 
4955 PRINT " ";F$'" ";Gs 
4960 PRINT "RESULTADOS: " 

4965 PRINT " T=";T;" SEG." 
4970 PRINT " Q=";Q;" RAD." 
4975 GO SUB 9065 

4980 GO TO 9095 

5000 RESTORE 8720 

5010 READ A$ 

5020 PRINT A$ 

5030 INPUT T 

5040 READ A$ 

5050 CLS 

5060 PRINT A$ 

5070 READ A$ 

5080 PRINT A$ 

5090 INPUT VO 

5100 RESTORE 8760 

5110 READ A$ 

5120 CLS 

5130 PRINT A$ 

5140 INPUT A 

5150 LET V=V0+AXxT 

5160 LET S=VOXT+AXxTxT/2 

5180 LET F$="V=V0+AxT" 
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5190 LET G$="S=Vox*T+AxT"2/2" 
5200 CLS 
5210 PRINT "DATOS: " 
5220 PRINT " T=";T;" SEG." 
5230 PRINT " Vo=";VO;" M/S" 
5240 PRINT " A=";A;" M/S"2" 
5250 PRINT "ECUACIONES EMPLEADAS: " 
5260 PRINT " ";F$'" ";GS 
5270 PRINT "RESULTADOS: " 
5280 PRINT " V=";V;" M/S" 
At "BS BON” 
5295 GO TO 8600 
5300 RESTORE 8720 
5310 READ A$ 
5320 PRINT AS 
5330 INPUT T 
5340 READ A$ 
5350 CLS 
5360 PRINT AS 
5370 READ A$ 
5380 PRINT AS 
5390 INPUT VO 
5400 RESTORE 8770 
5410 READ A$ 
5420 CLS 
5430 PRINT AS 
5440 INPUT S 
5450 LET V=(2*S-VOXT)/T 
5460 LET A=2*(S-VOXT) /(TxXT) 
5470 LET F$="V=(2*S-VOXxT)/T" 
5480 LET G$="A=2x(S-VOXT)/(T"2)" 
5490 CLS 
5500 PRINT "DATOS: * 
5510 PRINT " T=";T;" SEG." 
5520 PRINT " Vo=";VO;" M/S" 
5530 PRINT " S=";S;" M." 
5540 PRINT "ECUACIONES EMPLEADAS: " 
5550 PRINT " ";F$'" ";G$ 
5560 PRINT "RESULTADOS: ” 
5570 PRINT " V=";V;" M/S" 
5580 PRINT " A=";A;" M/S”2" 
5590 GO TO 8600 
5600 RESTORE 8720 
5610 READ A$ 
5620 PRINT AS 
5630 INPUT T 
5640 RESTORE 8760 
5650 READ AS 
5660 CLS 
5670 PRINT AS 
5680 INPUT A 
5690 READ A$ 
5700 CLS 
5710 PRINT AS 
5720 INPUT S 
5730 CLS 
5740 LET V=(2xS+AXTXT) /(2xT) 
5750 LET VO=(2*S+AXTXT-AXTXTXT) / (TXT) 
5760 LET F$="V=(2*S+AXT"2)/(2XT)" 
5770 LET G$="VO=(2XS+AXxT"2-AXT"3)/(T"2)" 
5780 PRINT "DATOS: " 
5790 PRINT " T=";T;" SEG." 
5800 PRINT " A=";A;" M/S”2" 
5810 PRINT " S=";S;" M." 
5820 PRINT “ECUACIONES EMPLEADAS: " 
5830 PRINT " ";F$'" ";G$ 
5840 PRINT "RESULTADOS: " 


5850 PRINT " V=";V;" M/S" 

5860 PRINT " Vo=";VO;" M/S" 

5870 GO TO 8600 

5900 RESTORE 8730 

5910 READ A$ 

5920 PRINT A$ 

5930 READ A$ 

5940 PRINT A$ 

5950 INPUT VO 

5960 RESTORE 8760 

5970 READ A$ 

5980 CLS 

5990 PRINT A$ 

8000 INPUT A 

6010 READ A$ 

8020 CLS 

6030 PRINT A$ 

6040 INPUT S 

6050 LET V=SQR (2*A*S+VOXVO) 
6060 LET T=(SQR (ABS (2*A*S+VOXVO) )-VO)/A 
6070 LET F$="V=SQR (2*A*S+Vo”2)" 
6080 LET G$="T=(SQR (ABS (2*A*S+Vo”"2))-Vo)/A" 
6090 PRINT "DATOS: " 

6100 PRINT " Vo=";VO;" M/S" 


6110 PRINT " A=";A;" M/S?2" 

6120 PRINT " S=";S;" M." 

6130 PRINT "ECUACIONES EMPLEADAS: " 
6140 PRINT " ";F$*" ";G$ 


6150 PRINT "RESULTADOS: " 
6160 PRINT " T=";T;" SEG." 
6170 PRINT ".V=";V;" M/S" 
6180 GO TO 8600 

6200 RESTORE 8720 

6210 READ A$ 

6220 PRINT A$ 

6230 INPUT T 

6240 READ A$ 

6250 CLS 

6260 PRINT A$ 

6270 RESTORE 8750 

6280 READ A$ 

6290 PRINT A$ 

6300 INPUT Y 

6310 READ A$ 

6320 CLS 

6330 PRINT A$ 

6340 INPUT A 

6350 CLS 

6360 LET VO=AxT-V 
6370'LET S=3x*AX*Tx*T/2-VxT 
6380 LET F$="Vo=A*T-V" 
6390 LET G$="S=3/2*A*T"2-VxT" 
6400 PRINT "DATOS:" 
6410 PRINT " T=";T;" SEG." 
6420 PRINT " V=";V;" M/S" 


6430 PRINT " A=";A;" M/S*2" 
6440 PRINT "ECUACIONES EMPLEADAS: " 
6450 PRINT " ";F$*" ";G$ 


6460 PRINT "RESULTADOS: " 
6470 PRINT " Vo=";VO;" M/S" 
6480 PRINT " S=";S;" M." 
6490 GO TO 8600 

6500 RESTORE 8730 

6510 READ A$ 

6520 PRINT A$ 

6530 RESTORE 8750 

6540 READ A$ 

6550 PRINT A$ 


M PROGRAMAS 


6560 
6570 
6580 
6590 
68600 
esi0 
6620 
6630 
6840 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
8760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
8930 
6940 
6950 
8960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7095 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 


INPUT Y 

READ A$ 

CLS 

PRINT A$ 

INPUT A 

READ A$ 

CLS 

PRINT A$ 

INPUT S 

LET T=(V-SQR (ABS VxXV-2*Ax*S))/A 

LET VO=SQR ABS (VX*V-2*Ax*S) 

LET F$="T=(V-SQR (ABS V”2-2x*A*S))/A" 
LET G$="Vo=SQR ABS (V”2-2*Ax*S)" 

CLS . 
PRINT 
PRINT 
PRINT 
PRINT 


"DATOS: " 

" Y=";V;" M/S" 

" A="¡A;" M/S*2" 

” 8a”:8;” MM.” 

PRINT "ECUACIONES EMPLEADAS: " 
PRINT " ";F$*" ";G$ 

PRINT "RESULTADOS: " 

PRINT," T=";T;" SEG." 

PRINT " Vo"; VO;" M/S" 

GO TO 8600 

RESTORE 8720 

READ A$ 

PRINT A$ 

INPUT T 

READ A$ 

CLS 

PRINT A$ 

RESTORE 8750 

READ A$ 

PRINT A$ 

INPUT Y 

RESTORE 8770 

READ A$ 

CLS 

PRINT A$ 

INPUT S 

LET VO=(2*S-TxV)/T 

LET A=2x(VxT-S)/(TXxT) 

LET F$="V0O=(2x*S-TxV)/T" 

LET G$="A=2x(Vx*T-S)/(T"2)" 
CLS  - 
PRINT 
PRINT 
PRINT 


"DATOS: " 
CE O. * 
O > MIO 

PRINT -*.82":8;" M.” 

PRINT “ECUACIONES EMPLEADAS: ” 
PRINT * “ES*” “as 

PRINT "RESULTADOS: ” 

PRiNT " Vo=";VO;" M/S” 

PRINT " A=";A;" M/S*2" 

GO TO 8600 

RESTORE 8720 

READ A$ 

PRINT A$ 


PRINT A$ 
READ B$ 

PRINT B$ 
INPUT VO 
READ B$ 

CLS : 
PRINT A$ 


7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 


7660 


7670 
7680 
7690 
7695 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 


PRINT B$ 

INPUT Y 

LET A=(V-VO)/T 

LET S=((Vx*V-VOX*XVO)*T)/(2*(V-VO)) 
LET F$="A=(V-Vo)/T" 

LET G$="S=((V*2-Vox*”"2)*T)/(2x(V-Vo))" 
CLS 

PRINT "DATOS: " . 

PRINT " T=";T;" SEG." 

PRINT " V=";V;" M/S" 

PRINT " Vo=";VO;" M/S" 

PRINT "ECUACIONES EMPLEADAS: " 
PRINT ” "“":FS”” ”";0s$ 

PRINT "RESULTADOS: " 

PRINT " A=";A;" M/S?2" 

PRINT " S=";S;" M." 

GO TO 8600 

RESTORE 8730 

READ A$ 

PRINT As 

READ B$ 

PRINT B$ 

INPUT VO 

READ Bs$ 

CLS 

PRINT A$ 


'PRINT B$ 


INPUT Y 
RESTORE 8770 

READ A$ 

CLS 

PRINT A$ 

INPUT .S 

LET A=(V*V-VOXVO)/(2*S) 

LET T=(2x*Sx*(V-VO))/(Vx*V-VOxVO) 

LET F$="A=(V"2-Vo”2)/(2*S)" 

LET G$="T=(2*Sx*(V-Vo))/(V-2-Vo”2)" 
CLS 
PRINT 
PRINT " 


“DATOS: " 

V=":V;" M/S" 
PRINT. " Vos"; VO;"” M/S” 
PRINT “ S="58;" M.* 
PRINT "ECUACIONES EMPLEADAS: " 
PRINT ” ":359*":"50S 
PRINT "RESULTADOS: " 
PRINT " T=":T;" SEG.” 
PRINT " A=";A;" M/S*2" 
GO TO 8600 

RESTORE 8730 

READ A$ 

PRINT As$ 

READ B$ 

PRINT Bs$ 

INPUT VO 

READ B$ 

CLS 

PRINT A$ 

PRINT B$ 

INPUT Y 

READ A$ 

CLS 

PRINT A$ 

INPUT A 

LET T=(V-VO)/A 

LET S=(VxV-VOXxVO)/(2xA) 
LET F$="T=(V-Vo)/A" 
LET G$="S=(V"2-Vo”"2)/(2*A)" 
CLS 


7900 
7910 
7920 
7930 


7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8300 
8310 
8320 
8330 
8340 
8500 
8510 
8520 
8530 
8540 
8550 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 


PRINT "DATOS: 


PRINT " V=";V;" M/S" 

PRINT " Vo=";VO;" M/S" 

PRINT " A=";A;" M/S”2" 

PRINT "ECUACIONES EMPLEADAS: " 


PRINT " ";F$”” 


";G$ 


PRINT "RESULTADOS: " 
PRINT “ T=";T;" SEG.” 
PRINT " S=";S;" M.” 


GO TO 8600 


CIRCLE 200, 44, 40 


PLOT 200, 44 
DRAW 40,0 
PLOT 200, 44 


DRAW (COS Q)*40, (SIN Q)*40 
FOR B=41 TO 40 STEP -1 


PLOT 200+B, 44 


DRAW Bx*COS Q-B,Bx*SIN Q,Q 


NEXT B 


FOR B=8 TO O' STEP -1 


PLOT 200+B, 44 


DRAW Bx*COS Q-B,Bx*SIN Q,Q 


NEXT B 


PRINT AT 15,26;"Q" 
PRINT AT 14,31;"S" 
PRINT AT 16,29;"T=0" 
PRINT AT 17,27;"R" 


PLOT 200,84 
GO SUB 8300 


PRINT AT 11,29;"At" 


PLOT 240, 44 
GO SUB 8300 


PRINT AT 7,26;"An" 


RETURN 

DRAW O, 32 
DRAW -2,-3 
DRAW 4,0 
DRAW -2,3 
RETURN 

IF Al=1 THEN 
IF A1l=2 THEN 
IF A1=3 THEN 
IF A1=4 THEN 
IF Al=5 THEN 
RETURN 

FLASH 1 


LET FO=(1 AND A2=5)+(2 AND A2=3)+(3 AND A2=2)+(4 AND A2=4) 
LET FO=(3 AND A2=1)+(5 AND A2=5)+(6 AND A2=4)+(7 AND A2=3) 
LET FO=(2 AND A2=1)+(8 AND A2=5)+(9 AND A2=4)+(7 AND A2=2) 
LET FO=(4 AND A2=1)+(6 AND A2=2)+(9 AND A2=3)+(10 AND A2=5) 
LET FO=(1 AND A2=1)+(5 AND A2=2)+(8 AND A2=3)+(10 AND A2=4) 


PRINT "PULSA UNA TECLA. " 


FLASH O 

GO SUB 1810 
PLOT 40, 27 
DRAW -4, 2 
DRAW 0, -4 
DRAW 4,2 


PRINT AT 17,0;"Vo=";VO 
PRINT AT 14,15;"A=";A 


PAUSE O 
RETURN 


DATA "TIEMPO EN SEGUNDOS 2?" 

DATA "VELOCIDAD EN M/S " 

DATA "(INIC.) ?" 

DATA "(FINAL) 2?" 

DATA "ACELERACION EN M/S 2?" 

DATA "ESPACIO EN METROS 2?" 

DATA "VELOC. ANGULAR EN RAD/S " 
DATA "ACEL. ANGULAR EN RAD /S”?2 ?" 
DATA "ANGULO EN RADIANES 2?" 

DATA "RADIO EN METROS 2?" 


MY PROGRAMAS 


8900 
8905 
8910 
8915 
8920 
8925 
8930 
8935 
8940 
8945 
8950 
8955 
8957 
8960 
8965 
8970 
8975 
8980 
8985 
B990 
8995 
9000 
9005 
9010 
9015 
9020 
9025 
9030 
9035 
9040 
9045 
9050 
9055 
9060 
9061 
9062 
9065 
9070 


9075 
9080 
9085 
9090 
9091 
9095 
9100 
9105 
9110 
9115 
9120 
9125 
9130 
9135 
9140 
9145 
9150 
9155 
9160 
9165 
9170 
9175 
9180 
9185 
9190 
9195 
9200 
9205 
9207 


RESTORE 8780 
READ A$ 
PRINT A$ 
RESTORE 8740 
READ A$ 
PRINT A$ 
INPUT WO 
RESTORE 8790 
READ A$ 

CLS 

PRINT A$ 
INPUT AA 

LET ANG=AA 
RESTORE 8720 
READ A$ 

CLS 

PRINT A$ 
INPUT T 

LET W=WO+AAXxT 


LET Q=WO*T+(AA*Tx*T)/2 
LET F$="W=Wo+0exT" 


LET G$="Q=Wox*T+(0xT"2)/2" 


CLS 
GO SUB 3150 
PRINT "DATOS: " 


PRINT " Ho=":WO;" RAD/S" 
PRINT " 6=";AA;" RAD/S”2 
PRINT " T=";T;" SEG." 
PRINT " R="¡R;" M.” 
PRINT "ECUACIONES EMPLEADAS: " 
PRINT " "¡F$'" ";G$ 
PRINT "RESULTADOS: " 
PRINT " W=";W:" RAD/S" 
PRINT " Q=":Q;" RAD" 

GO SUB 9065 

GO TO 9095 

GO SUB 360 

PRINT " VUELTAS=";NV;" 
as GA 
PRINT " V=";V;" M/S" 
PRINT " At=";TA;" M/S72" 


PRINT " An=";AN;" M/S?2" 


PRINT " S=";S;" 


RETURN 

GO TO 3440 
RESTORE 8720 
READ A$ 
PRINT A$ 
INPUT T 
RESTORE 8780 
READ A$ 

CLS 

PRINT A$ 
RESTORE 8740 
READ A$ 
PRINT A$ 
INPUT WO 
RESTORE 8800 
READ A$ 

CLS 

PRINT A$ 
INPUT Q 


Mr 


LET W=(2*Q-WOXT)/T 
LET AA=(2/Tx*T)x*(Q-WHOXT) 
LET F$="W=(2x*Q-Wox*T)/T" 


LET G$="0=(2/T"2)*x(Q-Wox*T)" 


CLS 
LET ANG=AA 


9210 
9215 
9220 
9225 
9230 
9235 
9240 
9245 
9250 
9255 
9260 
9265 
9270 
9300 
9305 
9310 
9315 
9320 
9325 
9330 
9335 
9340 
9345 
9350 
9355 
9360 
9365 
9370 
9375 
9380 
9385 
9390 
9395 
9400 
9405 
9410 
9415 
9420 
9425 
9430 
9435 
9440 
9445 

9450 
9455 
9500 
9505 

9510 
9515 

9520 
9525 

9530 
9535 

9540 
9545 

9550 

9555 

9560 

9565 

9570 

9575 

9580 
9585 

9590 

9595 

9600 

9610 

9615 


GO SUB 3150 

PRINT "DATOS: * 

PRINT " Wo=";WO;" RAD/S" 
PRINT " T=";T;" SEG.” 


PRINT " Q=":Q;" RAD.” 

PRINT " R="¡R;" M." 

PRINT "ECUACIONES EMPLEADAS: " 
PRINT " "¡F$'" ";G$ 

PRINT "RESULTADOS: " 

PRINT " 0=";AA;" RAD/S”2" 

PRINT " W=";W;" RAD/S" 

GO SUB 9065 

GO TO 3440 

RESTORE 8720 

READ A$ 

PRINT A$ 

INPUT T 

RESTORE 8790 

READ AS 

CLS 

PRINT A$ 

INPUT AA 

READ A$ 

CLS 

PRINT AS 

INPUT Q 

LET W=(2*S+AAXTxXT)/(2*T) 

LET WO=(2*S+AXT*T-AXTXT*T) / (TXT) 
LET F$="W=(2xS+0xXT"2)/(2xT)" 
LET G$="Wo=(2*S+A*T"2-A*T"3)/(T"2)" 
LET ANG=AA 


CLS 

GO SUB 3150 

PRINT "DATOS: " 

PRINT " T=";T;" SEG." 
PRINT " Q=";Q;" RAD" 


PRINT " 0=";AA;" RAD/S”*2" 
PRINT ".R=":R;" M.” 

PRINT "ECUACIONES EMPLEADAS: " 
PRINT " ":FS*" *“;03 

PRINT "RESULTADOS: " 

PRINT " W=";W;" RAD/S" 
PRINT " Wo=";WO;" RAD/S" 
GO SUB 9065 

GO TO 9095 

RESTORE 8780 

READ A$ 

PRINT A$ 

RESTORE 8740 

READ A$ 

PRINT A$ 

INPUT WO 

RESTORE 9070 

READ A$ 

CLS 

PRINT A$ 

INPUT AA 

READ A$ 

CLS 

PRINT A$ 

INPUT Q 

LET ANG=AA 

LET W=SQR (2*AA*Q+WOXWHO ) 
LET T=(SQR (2*AA*Q+WOXWO) -WO) /AA 
LET F$="W=SQR (2*x0xQ+Wo0”2)" 
LET G$="T=(SQR (2*0xQ+Wo”2)-Wo)/0O" 
CLS 

GO SUB 3150 


PRINT "DATOS: " 9760 READ A$ 


9625 PRINT " Wo=";WO;" RAD/S"” 9765 CLS 

9630 PRINT " 0=";AA;" RAD/S”2" 9770 PRINT A$ 

9635 PRINT " Q=";Q;" RAD." 9775 INPUT T 

9640 PRINT " R=";R;" M.” 9780 LET ANG=AA 

9645 PRINT "ECUACIONES EMPLEADAS: " 9785 LET WO=AAXT-W 

9650 PRINT " ";F$'" ";G$ 9790 LET Q=-WX*T+3x*AA*TXxT /2 
9655 PRINT "RESULTADOS: " 9795 LET F$="Wo=0xT-W" 

9860 PRINT " W=";W;" RAD/S" 9800 LET G$="Q=-WXT+(3*0xT"2)/2" 
9665 PRINT " T=";T;" SEG." 9805 CLS 

9670 GO SUB 9065 9810 GO SUB 3150 

9675 GO TO 9095 9815 PRINT "DATOS: " 

9700 RESTORE 8780 9820 PRINT " W=";W;" RAD/S" 
9705 READ A$ 9825 PRINT " O=";AA;”" RAD/S”2" 
9710 READ B$ 9830 PRINT " T=";T;" SEG." 
9715 PRINT A$ 9835 PRINT " R=";R;" M." 

9720 RESTORE 8750 9840 PRINT "ECUACIONES EMPLEADAS: ” 
9725 READ As$ 9845 PRINT " ";F$*" ";G$ 

9730 PRINT A$ 9850 PRINT "RESULTADOS: " 

9735 INPUT W 9855 PRINT " Wo=";WO;" RAD/S" 
9740 CLS 9860 PRINT " Q=";Q;" RAD." 
9745 PRINT B$ 9865 GO SUB 9065 

9750 INPUT AA 9870 GO TO 9095 


RESTORE 8720 


Cada vez que le digamos al ordenador para un caso particular, el ordenador 
que nos calcule los valores de veloci- también nos imprimirá la representación 
dad, tiempo, espacio, aceleración, etc., del movimiento. 


' Estructura y 
organización 


de una base de 


datos 


A estructura de la 
base de datos y, en 
consecuencia, la or- 
ganización corres- 
pondiente de los da- 
tos depende del «mo- 
delo de datos» elegi- 
do. Las estructuras 
básicas de datos organizadas tradicio- 
nalmente de un modo jerárquico (grupos 
que se dividen en subgrupos), se mejora- 
ron, en cuanto a su acceso, mediante la 
inclusión de tablas invertidas de índices; 
posteriormente se introdujeron sistemas 
que permitían la organización de los da- 
tos con relaciones más complejas en for- 
ma de red (sistemas que siguen básica- 
mente las especificaciones —formuladas 
ya en los primeros años setenta— del 
Data Base Task Group encuadrado en el 
comité CODASYL —creador del lenguaje 
COBOL—>) y también mediante la inclu- 
sión de la teoría de relaciones. 

Aunque actualmente «están de moda» 
las bases de datos «relacionales», de 
modo que incluso algunas que no lo son 
gustan de definirse así, no todo son ven- 


SOCRATES 
DMS 
1DS2 


RELACIONALES 


DATABASE 2 
MRDS 
QBE 


TECNICAS DE ANALISIS 


tajas con los modelos relacionales y con- 
viene estudiar cada caso para decidir 
qué tipo de estructura es la más adecua- 
da al modelo de datos que se va a ma- 
nejar. 

Existen numerosos SGBD de cada uno 
de los tipos indicados, como se muestra 
en el cuadro adjunto. Veamos sucinta- 
mente cada uno de estos modelos y sus 
ventajas e inconvenientes: 


'Q Bases de datos jerárquicas 


Las primeras bases de datos jerárqui- 
cas no eran más que la implementación 
de las estructuras de datos manejadas 
en COBOL, gestionadas de un modo más 
eficaz. 

El elemento más característico de este 
tipo de bases de datos es la fuerte de- 
pendencia existente en ellas entre la es- 
tructura de los datos y el modo en que fí- 
sicamente están grabados en el soporte 
físico. 

Si queremos, por ejemplo, crear un sis- 
tema de gestión de los fondos de una bi- 
blioteca (o, sencillamente, para el ma- 
nejo de nuestra biblioteca particular a ni- 
vel doméstico o profesional), deberemos 
establecer una estructura en que el con- 
cepto básico de organización sea el 
nombre del autor (para el que, también, 


ORACLES 
INGRES 


querremos tener anotados algunos otros 
datos complementarios: techas de naci- 
miento y muerte, nacionalidad, etc.); 
además reseñaremos los diferentes títu- 
los que de cada autor aparezcan en la 
colección, así como otros datos de cada 
volumen: sus características físicas, su 
contenido, editorial y fechas de publica- 
ción... y datos de la compra: librero a 
quien se adquirió el volumen, fecha, pre- 
cio, etc.; por último, su situación en las 
estanterías. La estructura de datos resul- 
tante será como la que aparece en la fi- 
gura. 


Nombre 


Nacionalidad Páginas 

Centro de Trabajo Editorial 
Año 
Coste 
Libreria 


ESTRUCTURA DE LA BASE DE DATOS BIBLIOGRAFICA 


El contenido de la base de datos se or- 
ganizará del siguiente modo: 


Como se ve, aparece una ocurrencia 
por cada autor; el conjunto de elemen- 
tos con él vinculados se denomina seg- 
mento (segmento autor); a su vez, el seg- 
mento autor consta de tantos segmentos 
volumen como libros de ese autor haya; 
en un sistema jerárquico de este tivo no 
se puede acceder a un segmento dJeter- 
minado sin acceder a su superior jerár- 
quico, de tal modo que si queremos co- 
nocer qué libros se han comprado entre 
dos fechas concretas, o cuántos volúme- 
nes hemos adquirido a un librero dado 
(datos ambos incluidos dentro del seg- 
mento volumen), habrá que ir acce:dien- 
do sucesivamente a todos los segmentos 
autor para ir obteniendo de su interior los 
datos que deseemos. 


The design of a Pascal Compiler 
[SEGMENTO 2] HARTNELL, Tim [Británico [7 
[Int Art.: conceptos y programas | 267 [Anaya] 1985 | 1.500 | Lib. Tecni] 
Libro Glg. Jueg. para ordenador 
[SEGMENTO 3 | GRIES, David | Estadouni. | Comell University 
Compiler Cost. for Dig. Computers | 452 | Jhonw | 1984 | 3255 | Thec. Lib. | 


Esta limitación es sumamente restictiva, 
en ocasiones, y puede producir una «ra- 
lentización» enorme de los procesos de 
búsqueda, si no se diseña con sumo cui- 
dado la estructura de la base. 

Además, es necesario utilizar ciertos 
«trucos» para resolver satistactoriarmmente 
algunas de las tareas que, de un ¡modo 
habitual, es necesario resolver en ell ma- 
nejo de los datos; por ejemplo: 


— Libro sin autor (un libro que tenga 
diversos autores, una antología, un com- 
pendio de las comunicaciones presenta- 
das a un congreso etc.): no se pue de in- 
cluir un segmento volumen sin su corres- 
pondiente segmento autor, por la que 
será necesario un autor ficticio o ganéri- 
co para incluir los datos en la base de 
datos. 


— Datos de un librero. Por la estructu- 
ra prevista en la base, habrá que repetir 
los datos genéricos de un librero (Jdomi- 
cilio, condiciones de compra, etc.) en el 
segmento volumen de cada libro que se 
haya comprado a ese librero; para evi- 
tar esta repetición inútil, se puede incluir, 


Casti | 1980 | 1.200 | Díaz. Sant. | 
[Amms. [ 1971 | 98FF | Lib. Univ, | 


310 [Anaya] 1986 | 1.750 | Edic. Pero. 
[259 Janaya] 1984 | 1.500 | Ub. tecni. 


por ejemplo, un segmento autor para 
cada librero y «marcar» en algún campo 
separado al efecto el hecho de que los 
datos que siguen corresponden a una li- 
brería y no a un libro. 

— Actualización de datos. Si se imodi- 
fica un dato correspondiente a un librero 
(y el librero no está separado, como se 
ha indicado en el párrafo anterior), ha- 
brá que recorrer toda la base examinan- 
do dónde aparece ese librero, para ir 
modificando (una a una) cada aparición 
del librero de que se trate. 

Estas situaciones descritas y otras más 
sutiles o sofisticadas que se presentan en 
la realidad, en ocasiones, muestren las 
dificultades y limitaciones que las bases 
de datos jerarquizadas pueden suponer. 


'D Manejo de 
pantalla e 


Impresora 


N PASCAL, el manejo 
de la pantalla no es 
una característica es- 
tándar del lenguaje, 
por lo que los compi- 
ladores de los diver- 
sos fabricantes re- 
suelven este proble- 
ma de diversas maneras. Es preciso, por 
tanto, que el programador se asegure 
cuanto antes de cuáles son las instruc- 
ciones que puede utilizar con el compli- 
lador de que dispone. Sin embargo, las 
dos operaciones fundamentales, borrar 
la pantalla y mover el cursor a determi- 
nada posición (que corresponden a las 
instrucciones CLS y LOCATE de BASIC) es- 
tarán siempre disponibles de una u otra 
manera. 

Por ejemplo, en Turbo PASCAL (uno de 
los compiladores de PASCAL más exten- 
didos para ordenadores IBM PC y compa- 
tibles) estas dos instrucciones se escri- 
ben de la siguiente manera: 


CLRSCR 
GOTOXY (X, Y) 


La primera borra la pantalla y la segun- 
da mueve el cursor a la posición de coor- 
denadas X (número de columna), Y (nú- 
mero de fila). 

Turbo PASCAL tiene, además, otras fun- 
ciones que actúan sobre la pantalla, 
como las siguientes: 

1. CLREOL borra todos los caracteres 
desde la posición actual del cursor has- 
ta el final de la línea, sin mover el cursor. 


TECNICAS DE 
PROGRAMACIÓN 


En BASIC, esta operación podría realizar- 
se combinando las instrucciones PRINT y 
LOCATE. Por ejemplo, supongamos que el 
cursor está, en cierto momento, en la fila 
4 y la columna 65 y que queremos borrar 
hasta el final de la línea sin mover la po- 
sición del cursor. Podríamos conseguirlo 
con el programa siguiente: 


1000 PRINT " 
1010 LOCATE 4,65 


En efecto, la primera instrucción (PRINT) 
escribe 15 espacios en blanco a partir de 
la posición actual del cursor (es decir, 
borra la línea hasta el final- pues escri- 
biendo un espacio en blanco encima de 
otro carácter, éste se borra). La segunda 
instrucción coloca de nuevo el cursor en 
el lugar donde se encontraba en un prin- 
cipio. 

2. DELLINE borra la línea donde se en- 
cuentra actualmente el cursor, moviendo 
el resto de la pantalla una línea hacia 
arriba e introduciendo una nueva línea 
en blanco en la parte baja de la panta- 
lla. Esta operación no es fácil de realizar 
en BASIC. Para simularla, es preciso utili- 
zar funciones avanzadas (como PEEK y 
POKE) y conocer con exactitud la posi- 
ción de memoria donde se guarda una 
imagen de la pantalla. 

3. INSLINE inserta una línea en blanco 
en la posición donde se encuentra el cur- 
sor. Las líneas que estaban situadas por 
debajo de éste se mueven una línea ha- 
cia abajo, y la última línea se pierde. Esta 


instrucción tampoco es fácil de simular 
en BASIC. 


Manejo de la pantalla en APL 

Al igual que en PASCAL, tampoco en 
APL es estándar el manejo de la panta- 
lla, por lo que suele depender del fabri- 
cante del intérprete correspondiente. En 
la versión de IBM, por ejemplo, existe un 
conjunto de funciones auxiliares que per- 
miten realizar las operaciones siguientes: 

1. Borrar la pantalla. 

2. Definir «formatos» en la pantalla (es 
decir, dividiria en campos rectangulares 
como los que se explicaron en los capí- 
tulos anteriores). Pero, al revés que en 
BASIC y PASCAL, es posible conseguir que 
sea imposible escribir datos fuera de di- 
chos campos, lo que facilita la construc- 
ción de programas que no permitan al 
usuario actuar fuera de los márgenes pre- 
vistos por el programador. Por ejemplo, 
un campo puede definirse únicamente 
para presentación de datos o mensajes, 
lo que hará imposible que la persona 
sentada al terminal pueda cambiar la in- 
formación que aparece en ese campo. 

3. Hacer que el programa escriba da- 
tos en uno o más de los campos previa- 
mente definidos. 

4. Colocar el cursor en cierto punto 
de la pantalla. 

5. Interrumpir la ejecución del progra- 
ma para que la persona sentada ante el 
terminal introduzca datos mediante el te- 
clado en los campos en los que se le per- 
mite hacerlo. Esta operación puede fun- 
cionar como la instrucción INKEY de BA- 
SIC (devolviendo control inmediatamen- 
te y proporcionando información sobre 
la tecla presionada, si la hay), o bien 
puede incluir una espera automática 
hasta que se presione una tecla cual- 
quiera, o permitir que éstas se presionen 
sucesivamente, cambiando la informa- 
ción contenida en los campos permitidos 
y devolviendo el control al programa 
sólo en el caso de que el usuario presio- 
ne una de las teclas especiales (tecla EN- 
TER, teclas de función, etc.). 

6. Leer los datos contenidos en cierto 
momento en uno o varios campos. Esto es 
especialmente aplicable a los campos 
en los que se permite introducir datos al 
utilizador del programa. 


Manejo de la impresora 
Es muy frecuente que el ordenador per- 
sonal tenga conectada una impresora, 


donde podemos obtener copias en pa- 
pel, ya sea de la información que apare- 
ce en la pantalla, ya sea de datos cua- 
lesquiera que deseemos conservar de 
una forma visible y permanente. Normal- 
mente, la impresora podrá utilizarse de 
tres maneras diferentes: 

— Para obtener una copia del conte- 
nido de la pantalla en un momento 
dado. A veces, esta función se denomi- 
na «instantánea», pues equivale a la 
toma de una fotografía instantánea de la 
pantalla. 

— Para obtener una copia continua, lí- 
nea a línea, de todo lo que va apare- 
ciendo por la pantalla. Esto es lo que sue- 
le llamarse una «bitácora» de la sesión 
de trabajo, por analogía con el cuader- 
no de bitácora de los barcos, donde se 
anotan todas las incidencias que suce- 
den durante la travesía. El término inglés 
correspondiente, también utilizado en in- 
formática, es «log book», que hace refe- 
rencia al cuaderno utilizado en los bar- 
cos para anotar la velocidad de la nave 
en cada momento de la travesía. 

— Para enviar a la impresora, bajo el 
control del programa, uno o varios datos, 
independientemente de su aparición o 
no por la pantalla. 

Las dos primeras funciones están, nor- 
malmente, bajo el control del sistema 
operativo, y se ponen en funcionamien- 
to automáticamente al presionar ciertas 
teclas. Por ejemplo, en los ordenadores 
IBM PC y compatibles, existe una tecla 
(que lleva el nombre PriSc, u otro equiva- 
lente), que al ser presionada (junto con 
alguna tecla especial, como la de ma- 
yúsculas o la de control) provoca auto- 
máticamente la obtención de una instan- 
tánea o la puesta en marcha de la bitá- 
cora (que se mantendrá hasta que se de- 
sabilite, presionando de nuevo la misma 
tecla). 

La tercera función (el envío de datos a 
la impresora sin que aparezcan en pan- 
talla) es propia de cada lenguaje de pro- 
gramación. 

En BASIC existe la instrucción LPRINT, 
equivalente a PRINT, pero que se diferen- 
cia de ésta porque el texto o expresión 
correspondiente es enviado a la impre- 
sora en lugar de a la pantalla. 

Por ejemplo, sea el programa siguien- 
te (véase el capítulo 32, para la versión 
equivalente que utiliza la instrucción 
PRINT): 


ly TECNICAS DE PROGRAMACION 


DIM X(5) 
20 FOR I=1 TO 5 

30 INPUT X(1) 

40 NEXT 1 

50 FOR I=1 TO 5 

60 LPRINT X(1); 

70 NEXT I 

80 LPRINT 

LPRINT "mensaje final” 


Este programa lee cinco valores del te- 
clado, los introduce en la variable X y 
después envía a la impresora dichos va- 
lores (mediante un bucle), escribiéndo- 
los en una sola línea. Finalmente, pasa a 
la línea siguiente y escribe un mensaje fi- 
nal. Obsérvese que a la instrucción LPRINT 
se le aplican las mismas normas que a la 
instrucción PRINT: la presencia o ausen- 
cia de un punto y coma al final de la ex- 
presión a imprimir decide si se añadirá o 
no, automáticamente, un paso al princi- 
pio de la línea siguiente. 

Veamos cómo aparecerá por la panta- 
lla la ejecución del programa anterior: 


Obsérvese que es idéntica a la ejecu- 
ción del ejemplo del capítulo 32, excep- 
to que los resultados de LPRINT no apare- 
cen por la pantalla. Sí, en cambio, apa- 
recerán por la impresora, donde se lee- 
rá lo siguiente: 


LL  D 
mensaje final 


En PASCAL no existe un método están- 
dar de manejo de la impresora, por lo 
que diversos compiladores pueden ha- 
cerlo de distintas formas. En Turbo PAS- 
CAL, el procedimiento consiste en utilizar 
las instrucciones WRITE y WRITELN, como si 
fuéramos a escribir en la pantalla, pero 
introduciendo un primer parámetro en la 
lista de datos a imprimir (la palabra re- 
servada LST), que indica al compilador 
que se desea obtener el resultado por la 
impresora en lugar de por la pantalla. 

Veamos cómo se escribiría en Turbo 
PASCAL el programa que realiza la misma 
función que el que acabamos de ver en 
BASIC: 


program ejemplo; 
var x:zarray[1..51] of integer; 
izinteger; 
begin 
for iz=1 to 5 do 
readin (x[i1); 
for iz=1 to 5 do 
write (l1st,x[il,” ”); 
writeln (1st,””); 
writeln (1st,*mensaje final”) 
end. 


Finalmente, tampoco en APL es están- 
dar el manejo de la impresora. En IBM/PC 
APL se proporciona una función pre-pro- 
gramada (PRINT) que permite enviar va- 
lores a la pantalla. Veamos cómo se es- 
cribiría en APL el programa anterior: 


EJEMPLO 
(17 xD 
[21 PRINT X 
'mensaje final' 


LOGO 


Dos 
procedimientos 
parecidos 


AMOS a ver dos pro- 
cedimientos recursi- 
vos cuya definición 
es muy parecida, 
pero que a la hora de 
que los ejecute la tor- 
tuga se obtiene un re- 
sultado chocante. 

En primer lugar, definimos un procedli- 
miento para que se escriban por panta- 
lla un conjunto de números a partir de 
uno inicial (Nh hasta uno final (NF). Que- 
da así: 


¿NF 


? PARA CONTARARRIBA :NI 


SI ¿NI > ¿NF C(ALTO] 


ES ¿NI 


CONTARARRIBA ¿NI + 1 ¿NF 


FIN 


Ahora escribimos otro procedimiento 
cambiando el orden de dos líneas del 
anterior: 


? PARA CONTARABAJO ¿NI :¿NF 


SI ¿NI > ¿NF [ALTO] 


CONTARABAJO ¿NI + 1 ¿NF 
ES ¿NI 


FIN 


¡Nos queda justo lo contrario! ¿Por 
qué? Es muy sencillo. En este segundo 
caso, cada vez que vamos haciendo una 
llamada recursiva nos va quedando un 
comando sin ejecutar (el de escritura del 
número). Lo que hace la tortuga es ir 
guardando en su mémoria lo que deja sin 
escribir para no olvidarse de hacerlo 
cuando termine. 

Cuando llega al comando ALTO mira a 
ver si le queda algo pendiente y, si es así, 
lo ejecuta en orden inverso a como lo ha 
ido guardando. 


GUARDAR 

y —— ES 
Z ——= ES 
y ——= ES 
Pr ES 


a ——y E 


O 0 3. 00 071 
uJ) 


M LOGO 


Es lo mismo que si ponemos varios pla- 
tos uno encima de otro en una mesa y 
luego los vamos quitando de uno en uno. 
El primero que pusimos es el último que 
quitamos. 


¡0 Un procedimiento para hacer 
un reloj 


Vamos a escribir procedimientos para 
dibujar un reloj, pero con la particulari- 
dad de que va a andar, es decir, va a ir 
marcando la hora. 

Para hacer esto, tenemos que utilizar 
varias variables para lo siguiente: 

— HORA, MIN y SEG, para indicar la 
hora inicial. 

— POSIH y RUMBOH, para guardar la 
posición y la dirección de la aguja de la 
hora. 


? PARA RELOJ :¿HORÁ ¿MIN :SEG 
> BP OT 
¡HORA 


* 30] 


> 11 [HAZ "RUMBOH C:HORA - 12) * 30] [HAZ 


— POSIM y RUMBOM, para guardar la 
posición y la dirección del minutero. 
— POSIS y RUMBOS, para guardar la po- 


«sición y la dirección del segundero. 


Además de utilizar comandos que ya 
hemos visto, necesitamos usar uno nuevo 
para que, prácticamente, el reloj funcio- 
ne como uno de verdad (el segundero se 
mueva cada segundo, el minutero cada 
minuto, ...). Así, el comando 


ESPERA n 


hace que la tortuga detenga la ejecu- 
ción de un procedimiento durante n/50 
segundos, siendo n un número. Por tanto, 
si queremos que espere un segundo ten- 
dremos que poner 


ESPERA 50 


Ya podemos definir todos los procedi- 
mientos: 


" RUMBOH 


"RUMBOH ¿RUMBOH + ¿MIN * 0.5 


"RUMBOM ¿MIN x* 6 
"RUMBOS :SEG * 6ó 
PONCL 10 
ESFERA 
RAYAS 


SL PONPOS [0 0] BL. 


PONRUMBOD :¿RUMBOH PONCL S AV 27 


HAZ "POSIH POS 
SL PONPOS [O 0] BL 


PONRUMBO :¿RUMBOM PONCL 8 AV 32 


Haz "POSIM POS 
SL PONPOS [0 0] BL 


PONRUMBO ¿RUMBOS PONCL 3 AV 37 


Haz "POSIS POS 
ANDA 
FIN 
2? PARA ESFERA 
SL AV 57 GD 90 BL 
REPITE 360 [AV 1 GD 113 
> SL PONPOS [0 0] GI 90 BL 


> FIN 


? PARA RAYAS 

> REPITE 12 [SL AV 42 BL AV 10 SL PONPOS [0 0] GD 30 BL] 

> FIN 

? PARA ANDA 

> REPITE 60 - :SEG [SL PONPOS [0 0] GOMA ESPERA)S0 PONPOS  :POSIS 
SL PONPOS [0 0] BL PONCL 8 PONPOS :POSIH SL PONPOS [O 01] BL 
PONPOS :POSIM SL PONPOS [0 0] BL PONRUMBO ¿RUMBOS GD 4 HAZ 
“RUMBOS RUMBO PONCL 3 AV 37 HAZ "POSIS POS] 

> SL PONPOS (0 0] GOMA 

> SI ¿RUMBOM = ¿RUMBOS [PONPOS :POSIS]J] [PONPOS :POSIM] 

> SL PONPOS [0 071 BL:+PONCL 3 PONPOS :¿POSIS 

> SL PONPOS [0 0] BL PONCL 8 PONPOS :POSIH 

> SL PONPOS [0 0] BL 

> PONRUMBO :RUMBOM 

> 6D é 


> HAZ "RUMBOM RUMBO 


xv 


PONCL 8 AV 32 


Ne 


HAZ "POSIM POS 

> SL PONPOS [0 0] GOMA 

> SI ¿RUMBOH = ¿RUMBOS [PONPOS :POSIS] [SI  ¿RUMBOH =  :¿RUMBOM 
[PONPOS :POSIM1 [PONPOS :POSIH]] 

> SL PONPOS [0 0] BL PONCL 3 PONPOS :POSIS 

> SL PONPOS [0 0] BL PONCL 8 PONPOS :POSIM 

> SL PONPOS [0 0] BL 

> PONRUMBO :RUMBOH 


> 6D 0.5 


> HAZ "RUMBOH RUMBO 


É > PONCL 8 AV 27 ' AN 


Al ejecutarlo quedaría algo así: 


El reloj no dejará de andar hasta que no 
pulsemos la tecla de parada. 


Hay que tener en cuenta dos cosas. Lo 
primero es que para poner el reloj en 
hora real hay que dar un valor inicial un 
poco mayor, porque la tortuga tarda un 
tiempo en dibujar el reloj y en ponerle en 
hora. Lo segundo es que poco a poco el 
reloj se irá retrasando porque también 
lleva tiempo el ejecutar todos los coman- 


? RELOJ 15 3 22 
a dos del procedimiento ANDA. 


Hasta ahora, cuando hemos querido 
dar valor a una variable lo hemos hecho 
de dos formas: 

1. Poniendo la variable al lado del 
nombre de un procedimiento al definirlo 
y luego escribiendo el valor cuando lo 
ejecutamos. 

2. Utilizando el comando de asigna- 
ción HAZ. 

Existe una tercera posibilidad que con- 
siste en leer el valor para esa variable del 
teclado, gs decir, almacenar en ella el 
carácter o el número correspondiente a 
la tecla que pulsemos. 

Para eso, tenemos que usar el coman- 
do 


| LEECAR 
o en abreviatura 
LG 


Cuando escribimos este comando y le 
mandamos a la tortuga que lo ejecute, 
ésta se queda esperando a que pulse- 
mos una tecla. 

Como es lógico, el valor de la tecla lo 
tenemos que guardar en algún sitio. Este 
sitio es una variable, por lo que lo más 
normal es escribir 


HAZ "VAR LC 


De esta forma, le decimos a la tortuga 
que almacene en la variable VAR el ca- 
rácter (letra o número) de la tecla que 
pulsemos. 

Podemos saber que la tortuga está es- 
perando a que pulsemos una tecla por- 
que en la pantalla no ocurre nada ni se 
ve el signo de interrogación (?) ni el cur- 
sor 


? HAZ “VAR LC MW 


o porque nosotros mismos le digamos 
que escriba un mensaje para que nos sir- 
va de ayuda. Por ejemplo así: 


? PARÁ LEER 


> ES [PULSA UNA TECLAI 


"VAR LC 


> HAZ 


> FIN 


2 LEER 
PULSA UNA TECLA 


Por último, cuando pulsamos una tecla, 
se almacena su valor en la variable, pero 
éste no se ve en la pantalla. Para saber 
cuál es podemos escribir el contenido de 
dicha variable con el comando ES. 


PASCAL 


Almacena- 
miento de 
estructuras 
dinámicas en 
ficheros 


L programa «experto» 
de los animales que 
se ha presentado 
como ejemplo de 
aplicación de árbo- 
les tiene el inconve- 
niente de que, cada 
vez que se termina su 
ejecución o se apaga el ordenador, to- 
dos los datos trabajosamente introduci- 
dos a golpe de tecla se pierden y hay 
que empezar de nuevo. 

Está claro que un programa así es poco 
útil. Ya sabemos cómo crear ficheros de 
variables de cualquier tipo: sin embargo, 
no resulta posible definir ficheros cuyos 
elementos sean estructuras dinámicas, 
ya que éstas, como es lógico, tienen 
unas dimensiones y una estructura no de- 
finidas a priori. 


'0 Almacenamiento de listas 
encadenadas 


El almacenamiento (y posterior recu- 
peración) de estructuras de tipo lista en- 
cadenada en ficheros no presenta ma- 
yores problemas; basta con utilizar fiche- 
ros cuyos elementos sean del mismo tipo 
que los elementos de las listas e ir guar- 
dando (o recuperando) éstos de mane- 
ra secuencial hasta llegar al final de la 
lista (o al final del fichero). Por ejemplo, 
para guardar en un fichero F una lista en- 
cadenada diríamos: 


rewrite (PF); 
P:=Ralz; 
while P < > nil do 
begin 
F:=P”; put (PF); 
p :=p”. Sigulente 
end; 


o bien, si el compilador lo admite: 


rewrite (PF); 
P:=Ralz; 
while P <> nil do 
begin 
write (F, p”); 
P:= P”. Siguiente 
end; 


Para recuperar de un fichero así creado 
una lista encadenada, podriamos hacer: 


reset (PF); 
Ralz:=nll; 
1 not eof (F) then 
begin 
new (Ralz); 
P:=Ralz; 
P”:= F”; get (FP); 
while not eof (F) do 
begin 
new (P” .Siguiente); 
P:=P”.Siguiente; 
P”:= F”; get (F) 
end; 
p”.Siguiente:= nil 
end; 


Los elementos se guardan completos 
en el fichero, es decir, incluyendo el 
campo correspondiente al puntero; real- 
mente, este campo no es necesario, ya 
que el valor que va a adquirir cada uno 
al recuperarse la lista es el asignado por 
el procedimiento NEW, como puede ob- 
servarse en el programa. Para ahorrar 
ese espacio, podríamos definir los tipos 
involucrados de la siguiente manera: 


A PASCAL 


type 

SubFicha.t= (* véase el texto ”) 

Puntero.t = “Ficha.!t; 

Ficha.t = récord 
Subficha : SubFicha.!t; 
Siguiente: Puntero.!t; 

end; 
Fichero.t = file of SubFicha..t 


SubFicha.t sería un tipo que englobase a 
todos los campos de Ficha.t, excepto el 
puntero. La recuperación desde un fiche- 
ro, por ejemplo, podría ser: 


reset (PF); 
Ralz:=nil; 
if not eof (F) then 
begin 
new (Ralz); 
P:=Ralz; 
P” .SubFicha:= F”; get (PF); 
while not eof (F) do 
begin 
new (P”.Siguiente); 
P:=P”.Siguiente; 
P” .SubFicha:= f”; get (F) 
end; 
P” .Siguiente:= nil 
end; 


y el almacenamiento: 


rewrite (PF); 
P:=Ralz; 
while P <> nil do 
begin 
F”:= P”.SubFicha; put (PF); 
P := P”. Siguiente 
end; 


/ Almacenamiento de árboles 


Para guardar un árbol, hay que salvar 
uno por uno, secuencialmente, todos sus 
nodos; por lo tanto, hay que escoger al- 
guno de los métodos de recorrido de ár- 
boles que conocemos: pre-orden, post- 
orden u orden central (si. el árbol no es bi- 
narlo, puede haber más de un orden 
central). Con pre-orden, el procedimien- 
to podría ser: 


“Salvar el árbol encabezado por tal 

nodo:” 

4 — Salvar el nodo en cuestión. 

2 — SI tiene descendiente izquierdo, 
entonces “salvar el árbol encabe- 
zado por su descendiente izquier- 
do”. 


3 — Si tiene descendiente derecho, en- 
tonces “salvar el árbol encabeza- 
do por su descendiente derecho”. 


Para salvar el árbol había que «salvar 
el árbol encabezado por el nodo raíz». 

Para recuperar un árbol de un fichero, 
se iñía leyendo éste secuencialmente y 
reconstruyendo el árbol nodo a nodo. 
Los campos correspondientes a los pun- 
teros contienen las direcciones en me- 
moria que tenían los descendientes 
cuando se salvó el árbol. Estas no tienen 
por qué ser las mismas al reconstruirlo en 
un momento posterior (puede ser un pro- 
grama distinto, con más variables que 
ocupen sitio en memoria y desplacen la 
posición de ciertos datos...) y, como su- 
cedía con las listas, su valor será el que 
se asigne con el procedimiento NEW al 
recuperar cada nodo. 

Sin embargo, su contenido sí es útil: si 
el contenido de esos campos es distinto 
de NIL, eso quiere decir que, cuando se 
salvó el nodo, tras él se salvaron las ra- 
mas que de él salían, que, por tanto, se 
encuentran a continuación en el fichero. 
El procedimiento habría de reflejar, por 
tanto, el recorrido en pre-orden utilizado 
al crear el fichero: 


“Recoger el árbol encabezado por tal 

nodo:” 

4 — Reservar sitio en memoria para el 
nodo, dejando listo el puntero que 
llevará hasta él. 

2 — Leer su contenido del fichero. 

3 — Si existen descendientes: 

— Recoger el árbol encabezado 
por su descendiente izquierdo. 
— Recoger el árbol cabezado 
por su descendiente derecho. 


En realidad, se puede ahorrar algo de 
espacio si, en lugar de guardar las fichas 
completas, se guardan todos los campos 
menos los punteros y en lugar de éstos se 
guardan unas variables de tipo Boolean 
que indiquen si existen descendientes o 
no. 

Como aplicación de todo esto veamos 
cómo modificar el programa de los ani- 
males para no tener que empezar desde 
cero cada vez (seguiremos utilizando el 
Turbo-Pascal). En primer lugar, podríamos 
definir la constante NOMBRE, para el 
nombre del fichero: 


const 
Nombre = 'ANIMALES.ARB'”; 
(" las demás constantes ... *) 


y la variable FICHERO: 


begin 
new (P); 
read (Fichero, P"); 
with P” do 
begin 
if QueSi <> nil then 


end 
end; 


Como el dato que se pasa es el punte- 
ro que lleva al nodo, el paso de paráme- 
tros ha de ser por nombre para que, tras 
ejecutarse NEW, se quede realmente 
apuntando a la zona de memoria reser- 
vada. Tras ejecutar Reset para posicio- 


procedure Salvar (PFP: Punt_t)3; 


begin 
write (Fichero, F"); 
with P” do 
begin 


end 
end; 


Por supuesto, hay que ejecutar des- 
pués el procedimiento Close. Con todo 


procedure Recoger (var P: Punt_t); 
(k Recoge del fichero el nodo al que apuntará P y sus ramas. *) 


Recoger (QueSi); 
if QueNo <> nil then Recoger (QueNo) 


(k Guarda en el t+tichero el modo al que apunta P y sus ramas X) 


if QueS1 + mil then Salvar (QueSi); 
1f QueNo ¿> nil then Salvar (QueNo) 


var 
Fichero: file of Ficha.!t; 
(" las otras variables ... *) 


El procedimiento de recogida de datos 
desde un fichero podría ser: 


narse al principio del fichero, se ejecuta- 
ría Recoger (Raiz). 

Para salvar la información del árbol, 
tras ejecutar Rewrite se podría ejecutar 
Salvar (Raiz), siendo Salvar el siguiente 
procedimiento: 


esto, sólo quedaría modificar el progra- 
ma principal: 


A PASCAL 


begin 
waite (“<¿Leo datos de disco”); 
1f Afirmativo then 
begin 
assign (Fichero, Nombre); 
reset (Fichero); 
Fecoger (Ra1z); 
close (Fichero) 
end 
else 
beyin 
new (Ra17); 
with Raz > 
begin 
¿Fregunta: 
Quesi 
QueNo 
end 
end; 


repeat 

writelr; 

BuscaEn (Ra1z); 

writeln; 

write ("Desea seguir >; 
until not Afirmativo:; 


write '*"¿Guardo Jos catos reemplazando al anterior árbol)”); 
1 Efirmativo then 


begin 

assign (Fichero, Nombre): 
rewrite (Fichero): 

Salvar (Raiz): 

close (Fichero) 

end 


El programa resultante no dispone de 
tratamiento de errores, por lo que si, al in- 
tentar leerlo, no existiera el fichero ANI- 
MALES.AREB, o, al intentar salvar los datos, 


no hubiera suficiente espacio en disco o 
este estuviera protegido contra graba- 
ción, se produciría un error y se detendría 
el programa. 


O El lenguaje 
LISP 


EL lenguaje LISP se ha 
hablado mucho últi- 
mamente, sobre todo 
debido al gran auge 
que ha tomado un 
campo, relativamen- 
te moderno de la pro- 
gramación, como es 
la inteligencia artificial. 

Sin embargo, este lenguaje es real- 
mente innovador, ya que parte de un 
concepto no utilizado hasta ahora, por lo 
que es difícil juzgar su eficacia, dentro de 
los cánones habituales utilizados con 
otros lenguajes llamados clásicos. 

Se puede decir, sin embargo, que es 
realmente eficaz para el tratamiento de 
listas, de ahí su nombre: «LISt Processing». 
Estas listas eran originariamente frases de 
lenguaje natural que debían ser proce- 
sadas (interpretadas) por el ordenador. 
De ahí su utilidad en inteligencia artifi- 
cial, que basa principalmente sus activi- 
dades en el procesado del lenguaje (al 
menos inicialmente). 

Trataremos de dar una idea lo más 
aproximada posible de su funcionamien- 
to, así como de explicar algunas ideas 
esenciales relacionadas con el tipo de 
actividades en las que se utiliza este len- 
guaje. De todas formas, no debemos ol- 
vidar que el LISP es un lenguaje «raro» 
para profanos, ya que su arquitectura no 
tiene mucho que ver con los lenguajes 
imperativos. (Como el BASIC, FORTRAN, 
PASCAL, COBOL, y prácticamente todos 
los conocidos por el gran público.) 

El lenguaje LISP es definido por los teó- 
ricos muy brevemente. Ellos dicen que 
LISP es un lenguaje Funcional, Simbólico, 
Recursivo, Lógico, para el Procesado de 
Listas. 

Cada una de estas definiciones en- 
cierra un amplio contenido, en algunos 


OTROS LENGUAJES 


casos muy diferente del habitual, por lo 
que deberemos explicar cada una de 
ellas detalladamente. 

En primer lugar, la palabra Funcional no 
se refiere a que sea muy eficaz, sino a 
algo mucho más dramático. En LISP sólo 
existe una sentencia (es decir, un solo 
tipo de sentencia), ésta es la función. 

Algunos entendidos dicen que ésta es 
la principal causa de su belleza y consis- 
tencia. 

El programador clásico se preguntará, 
¿cómo es posible hacer todo un progra- 
ma, con sólo llamadas a funciones; sin 
asignaciones, sin bucles...? ¡Horror! 

Y no sólo un programa, sino los progra- 
mas más monstruosamente complica- 
dos, ya que, por desgracia, la inteligen- 
cia artificial conlleva una gran compleji- 
dad de proceso con un número de datos 
ingente. 

De todas formas, el sufrido lector no 
debe asustarse demasiado, ya que to- 
das las estructuras clásicas de programa- 
ción siguen conservándose en LIPS, gra- 
cias a que una función puede hacer casi 
cualquier cosa, como una asignación, un 
bucle, y todo lo demás. En realidad, po- 
dríamos casi decir que la estructura «Fun- 
cional» es casi un subterfugio teórico 
para dotarlo de una uniformidad que 
raya en lo imposible, muy útil, eso sí. 

Un programa en LISP es, pues, una fun- 
ción, formada a su vez por otras funcio- 
nes, definidas por el programador, o que 
provienen de la biblioteca de funciones 
estándar que «definen» la sintaxis del len- 
guaje. 

Nota: Es evidente que cuando habla- 
mos de función nos referimos al concep- 
to clásico, muy similar al del PASCAL, por 
ejemplo. 

La segunda palabra que define al len- 
guaje es Simbólico. 

Esta no sólo quiere decir que se utilicen 
nombres de variables «abstractas» como 
en todos los lenguajes, sino que el tipo 
de los datos utilizados es, en esencia, 
abstracto, es decir, simbólico. 


¡y OTROS LENGUAJES 


Tratemos de explicar esto más clara- 
mente. 


Tan abstractos son los datos en LISP 
que, en realidad, sólo hay dos tipos de 
datos: átomos y listas. Un átomo es indi- 
visible y podríamos explicarlo como una 
cadena de caracteres (string) sin espa- 
cios en blanco. El espacio en blanco en 
LISP, al contrario que en los lenguajes clá- 
sicos, tiene una importancia esencial, ya 
que es el separador por excelencia 
(equivale a una coma). 


Además, una lista es una tira de átomos 
separados por espacios. Entonces, 
¿cómo utilizar datos de otro tipo, como 
números? Pues, sencillamente, un núme- 
ro es un átomo al que aplicaremos fun- 
ciones que consideremos adecuadas, 
como la suma, por ejemplo. 


Debemos dejar claro otra idea funda- 
mental del LISP. Un dato y una variable 
son casi lo mismo. Esto quiere decir que 
un átomo puede contener un valor, con 
lo que sería en teoría una variable, pero 
su contenido puede tener, a su vez, un 
contenido, y así hasta el infinito. Con 
esto, datos e identificadores son lo mis- 
mo, ya que podemos «meter» una varia- 
ble con todos sus contenidos en otra, 
que no se diferencia en nada de un dato, 
ya que ambos son átomos (en todo lo an- 
terior, donde se dice átomo, puede de- 
cirse también lista). Sencillo, ¿eh? 


Con las ideas dadas hasta ahora, el 
lector puede darse una leve idea de la 
potencia «posible» del lenguaje. Sin lími- 
tes entre datos y programa, no hay meta 
a la que un programador «original» no 
pueda llegar. Sin embargo, esta falta 
aparente de reglas provoca en el no ini- 
ciado una especie de «vértigo» debida a 
lo que podríamos denominar «mal de al- 
tura» debido al excesivo número de po- 
sibilidades nuevas que proporciona el 
lenguaje. 


La tercera palabra que define al len- 
guaje es Recursivo. 

Es este un concepto que no se ha utfili- 
zado demasiado en la programación 
clásica, debido principalmente a proble- 
mas de implementación. Eso de que un 
procedimiento o función pueda llamarse 
a sí mismo es algo a primera vista compli- 
cado. 

Hablemos algo más sobre el asunto. 

Pensemos un momento en la definición 
de una función esencialmente recursiva, 
como, por ejemplo, el factorial de un nú- 
mero. El factorial de un número natural n 
(n!) sería el producto de ese número por 
el factorial del número menos 1 (es de- 
cir, nl! = nx (n- 1), con lo cual estamos 
utilizando para definir el concepto (la 
operación), el propio concepto. Pues 
bien, está claro que si deseamos hacer 
un programa (o función, subrutina, etc.) 
que realice la operación, necesitaría- 
mos una serie de comparaciones (sen- 
tencias, IF, etc.) para implementarlo de 
una forma no recursiva. Excepto que el 
lenguaje que utilicemos permita que una 
función se llame a sí misma. Con lo cual 
la función en alguna parte de sus «sen- 
tencias» llamaría a sí misma decremen- 
tando el parámetro de cálculo (n - 1), y 
así sucesivamente, luego el camino de 
retorno (un montón de ejecuciones de 
RETURN) y conseguimos que el ordenador 
trabaje mucho y el programador muy 
poco. 

En LISP esto no es sólo posible (como en 
lenguajes clásicos como MODULA-2 o 
ADA), sino que el propio lenguaje se ha 
hecho pensando en ello. Podríamos de- 
cir que es fuertemente recomendable y 
que ha sido implementado eficiente- 
mente. 

En el próximo capítulo seguiremos ex- 
plicando los fundamentos del LISP y em- 
pezaremos a adentrarnos algo en su sin- 
taxis. 
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